Предмет: Информатика, автор: joutraehv

Паскаль.

Определить, сколько элементов массива меньше, чем число 6.

Ответы

Автор ответа: Gastiff
0

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

i,c,n: integer;

begin

randomize;

readln(n);

c:=0;

 

for i:=1 to 10 do begin

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

if (a[i]<6) then c:=c+1;

end;

writeln(c);

end.

Похожие вопросы