Составить программу, которая формирует массив из 10 целых чисел и подсчитывает количество элементов массива, которые кратны 5.

Question

Информатика

Виталия

30 ноября, 15:37

Составить программу, которая формирует массив из 10 целых чисел и подсчитывает количество элементов массива, которые кратны 5.

+1

Ответы (2)

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

Вассиан · Answer 1

Var

i, k : longint;

begin

k:=0;

for i:=1 to 10 do

if (i mod 5) = 0 then k:=k+1;

writeln (k) ;

end.

Корнеля · Answer 2

Program enot;

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

i, h:integer;

begin

h:=0;

for i: = 1 to 10 do

a[i]:=random (100) ;

for i:=1 to 10 do

if a[i] mod 5=0 then

h:=h+1;

writeln (h) ;

end.