В заданном массиве определить есть ли хотя бы один элемент, который является числом, кратным 7. Если “да”, то вывести его номер.
В заданном массиве определить есть ли хотя бы один элемент, который является числом, кратным 7. Если “да”, то вывести его номер.
Гость
Ответ(ы) на вопрос:
ГостьВыводит 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.
Не нашли ответ?
Похожие вопросы