Вычислить количество положительных, отрицательных и нулевых элементов на Pascal

Задание: в массиве A1, A2, A3,… Am вычислить количество положительных, количество отрицательных и число нулевых элементов

Program m1; {найти в массиве A сумму положительных элементов, число отрицательных и число нулевых элементов}
const m=20;
var A:array[1..m] of real;
s:real;
i,n,l:integer;
begin
for i:=1 to m do
begin
write('A[',i,']=');
readln (A[i]);
end;
writeln('исходная матрица');
for i:=1 to m do
write(A[i]:5:2);
writeln;
s:=0;
n:=0;
l:=0;
for i:=1 to m do
if A[i]>0 then
s:=s+A[i]
else
if A[i]=0 then
n:=n+1
else
l:=l+1;
writeln(s:5:2, n:5, l:5);
end

Пояснения
1. Размер массива задан с помощью const n= 20.
2. Ввод массива осуществляется поэлементно, при этом на экране выдается подсказка A[i] = …
3. Введенный массив далее выдается на экран в виде строки, перед которой выводится сообщение:
Исходная матрица


Оставить комментарий





Статистика

Рейтинг@Mail.ru