Question

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

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.