Дан массив целых чисел.найти сумму элементов,имеющих нечетное значение.(паскаль)

113

300

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

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

viva32

Информатика

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

//pascalabc.net //версия 3.3, сборка 1611 begin write('массив: '); var a: =arrrandom(10,-100,100).println(); write('сумма нечетных: ',a.where(x-> x.isodd).; end.

semabondar200

Информатика

4,6(100 оценок)

Var a: array[1..100000] of integer; n, i,sum: integer; begin write('введите количество элементов массива -> '); readln(n); write('введите массив -> '); for i: = 1 to n do begin read(a[i]); if a[i] mod 2 = 1 then sum : = sum + a[i]; end; writeln(sum); end. пример: введите количество элементов массива -> 5 введите массив -> 1 2 3 4 5 9