Паскаль.

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

Question

Информатика

Снандулия

7 сентября, 12:25

Паскаль.

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

+3

Ответы (1)

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

Ильюша · Answer 1

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.

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

Паскаль.

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