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

zhaslanovd zhaslanovd    3   17.05.2019 12:10    0

Ответы
snqa snqa  10.06.2020 17:10

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика