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

Question

Информатика

Тамарка

7 февраля, 02:33

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

+3

Ответы (2)

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

Леонид · Answer 1

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.

Лена · Answer 2

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.