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

Ответы (1)

Ахунзян 27.03.2024 0
Const N=20;var a:array[1 ... N] of integer;s, i:integer;beginfor i:=1 to N do beginwrite ('A=') ; read (a[i]) ;end;s:=0;for i:=1 to N do beginif a>0 then begins:=s+a;write (i) ;end;end;write (s) ;end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ