Решите задачу по информатике в программе паскаль, пожалуйста. В массиве А(5) посчитать - №1278721

Решите задачу по информатике в программе паскаль, пожалуйста.

В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.
- Предмет:
  Информатика
- Автор:
  federico
- 5 лет назад

Ответы 2

var A:array[1..5] of real;

i, n_neg, n_pos: integer;

begin

n_neg := 0;

n_pos := 0;

for i := 1 to 5 do

readln(A[i]);

for i := 1 to 5 do

if (A[i] < 0) then

inc(n_neg)

else if (A[i] > 0) then

inc(n_pos);

writeln('Positives: ', n_pos, ', negatives: ', n_neg)

end.
- Автор:
  barker18
- 5 лет назад
- 0
var a:array[1..5]of longint;

i,k,k1:longint;

begin

for i:=1 to 5 do

read(a[i]);

for i:=1 to 5 do

begin

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

if a[i]>0 then k:=k+1;

end;

writeln('otricatelnyh=',k1,'polojitelnyh',k);

end.
- Автор:
  alessandrackn8
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years