Паскаль. Определить, сколько элементов массива меньше, чем число 6.
Паскаль. Определить, сколько элементов массива меньше, чем число 6.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы