массив из 10 элементов формируется случайным образом. определить есть ли хотя бы один элемент который является числом кратным 7. если да то вывести его номер иначе вывести сообщение что такого элемента нет.

1

Ответы и объяснения

2012-12-18T01:23:50+04:00

Program Frank;
const n=10;
Type mas=array[1..n] of integer;
var a:mas;i:integer;k:integer;
begin
for i:=1 to n do begin
a[i]:=random(100)+1;
write(' ',a[i]);
end;
k:=0;
for i:=1 to n do begin
if a[i] mod 7=0 then begin writeln(' Номер элемента,который кратен 7 под номером ',i);
k:=k+1;
end;
end;
if k=0 then writeln(' Такого элемента нет');
end.