Заполнить массив из 30 элементов случайными целыми числами. Вывести те значения элементов, которые кратны 5.

Question

Информатика

Артемка

7 февраля, 18:53

Заполнить массив из 30 элементов случайными целыми числами. Вывести те значения элементов, которые кратны 5.

+3

Ответы (2)

Знаете ответ на вопрос?

Яков · Answer 1

Program n1;

var a: array[1 ... 30] of integer;

i: integer;

begin

randomize;

for i:=1 to 30 do

begin

a[i]:=random (30) + 1;

if a[i] mod 5=0 then write (a[i],' ') ;

end;

end.

Катяша · Answer 2

Const n=30; var a:array [1 ... n] of integer; i, k:integer; beginfor i:=1 to n do begina[i]:=random (51) - 20; write (a[i]:4) ; if abs (a[i]) mod 5=0 then k:=k+1; end; writeln (k:2) ; end.