4. Какой раздел выбирается для изменения ориентации страницы?

190

386

Посмотреть ответы 1

Ответы на вопрос:

andreybrake

Информатика

4,4(94 оценок)

Var a: array [1..1000] of integer; i,n,s: integer; begin s: =0; writeln ('введите размер массива'); readln (n); for i: = 1 to n do begin write ('a[',i,']= '); readln (a[i]); if a[i]> 0 then s: =s+i; end; writeln ('сумма индексов положительных элементов = ',s); end.