Вариант 1.

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

Question

Информатика

Натулёк

13 января, 10:40

Вариант 1.

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

+5

Ответы (1)

Знаете ответ на вопрос?

Пиргайб · Answer 1

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

Вариант 1.

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