Предмет: Информатика,
автор: Holyyyyyy
Составить программу,которая формирует одномерный массив и выводит на экран все элементы,кратные 7.
Ответы
Автор ответа:
0
const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 7=0 then
begin
write(a[i]:4);
k:=k+1;
end;
if k=0 then
writeln('нет кратных 7')
end.
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 7=0 then
begin
write(a[i]:4);
k:=k+1;
end;
if k=0 then
writeln('нет кратных 7')
end.
Похожие вопросы
Предмет: Литература,
автор: nursultansagynbekov9
Предмет: Математика,
автор: Anelyakadyrova2008
Предмет: Математика,
автор: karina635919
Предмет: Геометрия,
автор: Алина3456