Заполнить массив из 15 элементов целыми числами с клавиатуры, и найти количество отрицательных элементов. Программа Паскаль.

Question

Информатика

Нинуся

6 сентября, 12:37

Заполнить массив из 15 элементов целыми числами с клавиатуры, и найти количество отрицательных элементов. Программа Паскаль.

+4

Ответы (1)

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

Авдий · Answer 1

Program kl;

var a:array[1 ... 15] of real;

i:integer;

k:real;

begin

k:=0;

for i:=1 to 15 do

begin

readln (a[i]) ;

if a[i]<0 then

begin

k:=k+1;

end;

end;

writeln ('кол-во отрицательных элементов=', k) ;

end.