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

188

378

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

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

nikitanosach2901

Информатика

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

Var a: array[1..10] of integer; sum,chet,s,i: integer; begin sum: =0; s: =0; chet: =0; for i: =1 to 10 do begin a[i]: =random(200)-100; writeln('a[',i,'] = ', a[i]); if a[i] > 0 then sum: =sum+a[i]; if a[i] mod 2 = 0 then chet: =chet+a[i]; if i< 6 then s: =s+a[i]; end; writeln('summa polozhitelnix = ',sum); writeln('summa chetnix = ',chet); writeln('simma pervix 5 = ', s); end.