Найти номер первого нулевого элемента массива x1, x2, и сумму элементов пришедствующих ему

110

462

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

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

typaydevochka

Информатика

4,8(7 оценок)

Var x: array [1..20] of integer; i, sum : integer; beginfor i: =1 to 25 do read(x[i]); sum: =0; i: =1; while x[i]< > 0 do begin sum: =sum+x[i]; i: =i+1; end; writeln('первый нулевой элемент ', i); writeln('сумма элементов до нулевого ', sum); end.