shoshin142
Program Summa; var n, i, a, s: integer; Begin
//Ввод длины массива write('Кол-во элементов в массиве -> '); readln(n);
//Считываем вводимые элементы и сразу проверяем их на положительность s := 0; i := 0; for i := 1 to n do begin write('A(', i, ') = '); readln(a); if (a > 0) then s := s + a; end;
//Вывод ответа write('Сумма положительных элементов массива: ', s, '.');
Answers & Comments
var
n, i, a, s: integer;
Begin
//Ввод длины массива
write('Кол-во элементов в массиве -> ');
readln(n);
//Считываем вводимые элементы и сразу проверяем их на положительность
s := 0; i := 0;
for i := 1 to n do
begin
write('A(', i, ') = ');
readln(a);
if (a > 0) then
s := s + a;
end;
//Вывод ответа
write('Сумма положительных элементов массива: ', s, '.');
End.