В заданном массиве определить есть ли хотя бы один элемент, который является числом, кратным 7. Если “да”, то вывести его номер.
Answers & Comments
Megacoocker
Выводит 2 строки: Сам массив(20 элементов от 10 до 99) и строку с номерами элементов кратных 7, если таковых элементов нет, то пишет No elements.
program test; uses crt; const t:boolean=false; var arr:array[1..20] of integer; i:integer; begin randomize; clrscr; for i:=1 to 20 do begin arr[i]:=random(90)+10; write(arr[i],' '); end; writeln; for i:=1 to 20 do if arr[i] mod 7 = 0 then begin write(i,' '); t:=true; end; if t=false then write('No elements'); end.
Answers & Comments
program test;
uses crt;
const
t:boolean=false;
var
arr:array[1..20] of integer;
i:integer;
begin
randomize;
clrscr;
for i:=1 to 20 do
begin
arr[i]:=random(90)+10;
write(arr[i],' ');
end;
writeln;
for i:=1 to 20 do
if arr[i] mod 7 = 0 then
begin
write(i,' ');
t:=true;
end;
if t=false then
write('No elements');
end.