Задача №13567

Дан линейный массив A[1..N], содержащий целые числа. Посчитать сумму п

Задача на Pascal. Имеется целочисленный массив A[1..N] в котором целые числа. Необходимо найти сумму всех положительных чисел и вывести их на экран.

Дан линейный массив A[1..N], содержащий целые числа. Посчитать сумму положительных чисел и распечатать номера таких чисел.

 

const N=20;
var a:array[1...N] of integer;
s,i:integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
s:=0;
for i:=1 to N do begin
if a>0 then begin
s:=s+a;
write (i);
end;
end;
write (s);
end.

 

Категория: по информатике | Добавил: Просмотров: 1 | Рейтинг: 0.0/0
Всего комментариев: 0