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

Question

Информатика

Тасюта

8 мая, 11:42

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

+5

Ответы (2)

Знаете ответ?

Леонида · Answer 1

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.

Конон · Answer 2

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.