Среди 15 действительных чисел, введенных с клавиатуры, подсчитать количество...

0 голосов
61 просмотров

Среди 15 действительных чисел, введенных с клавиатуры, подсчитать количество отрицательных и выдать их на экран


Информатика (12 баллов) | 61 просмотров
Дан 1 ответ
0 голосов

В простейшем виде программка будет такой

var A,i,c :integer;
          begin 
c:=0; 
 for i:=1 to 15 do begin
  write ('введите число: ');
  readln(A);
  if A<0 then c:=c+1;<br>  end; 
writeln ('количество отрицательных чисел = ', c);
     end.

Весли надо решать с массивами напиши - подправим