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

Question

Информатика

Северина

20 февраля, 05:51

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

+5

Ответы (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.