Напишите программу вычисляющую сумму четных элементов массива

139

276

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

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

Незнайка1652

Информатика

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

Const n=10; var a: array[1..n] of integer; i,s: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+a[i]; writeln('s = ',s); end. пример: исходный массив: 5 -6 -7 2 3 5 -7 -2 -6 -5 s = -12

marina4010

Информатика

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

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin var a: =arrrandom(readinteger('n='),1,99); a.println; writeln('сумма четных ',a.where(x-> x.iseven).sum) end. тестовое решение: n= 15 40 88 6 42 57 56 80 78 71 56 73 91 74 19 95 сумма четных 520

sisennova03

Информатика

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

Var s,p : biginteger; i : integer; begin p: =1; s: =0; for i: =1 to 10 do begin s: =s+i*5; p: =p*i*5; end; writeln('сумма: ',s); writeln('произведение: ',p); end.