Cоставить программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и выводит элементы, кратные 3. На экран выводится исходный массив и найденные элементы.
Cоставить программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и выводит элементы, кратные 3. На экран выводится исходный массив и найденные элементы.
Гость
Ответ(ы) на вопрос:
Гостьconst n=16;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin
a[i]:=random(40)-20;
write (a[i], ' ');
end;
writeln;
for i:=1 to n do
if (a[i] mod 3)=0 then write (a[i], ' ');
end.
Не нашли ответ?
Похожие вопросы