Дан массив размерностью 10 вычислить количество отрицательных элементов

Question

Информатика

Далмат

4 июня, 08:05

Дан массив размерностью 10 вычислить количество отрицательных элементов

+3

Ответы (1)

Знаете ответ на вопрос?

Надина · Answer 1

var i, min:integer;

a:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (45) - 22;

write (a[i],' ') ;

end;

writeln;

for i:=1 to 10 do begin

if a[i]<0 then min: = min+1;

end;

writeln ('Количество отрицательных элементов:', min) ;

end.