Дан массив а из 20 элементов найти сумму отрицательных элементов массива

239

489

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

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

gobon1337

Информатика

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

Program n1; const n=20; var a: array[1..n] of integer; sum,i: integer; begin write('массив: '); for i: =1 to n do begin a[i]: =random(21)-10; if a[i]< 0 then sum: =sum+a[i]; write(a[i],' '); end; writeln; write('сумма отрицательных: ',sum); end.

Сашуньк

Информатика

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

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin write('исходный массив: '); var a: =arrrandom(20,-30,30); a.println; writeln('сумма отрицательных элементов равна ', a.where(t -> t < 0).sum); end. пример: исходный массив: 26 20 10 -21 -29 18 -16 -24 -3 3 6 -12 11 21 -21 2 29 0 4 2 сумма отрицательных элементов равна -126

mamamama9

Информатика

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

// pascalabc.net 3.3// cборка 1590 от 03.12.2017 begin var a: =arrrandom(8,-20,20); a.println; println('минимальное: ',a.min); end. пример: -16 -19 -18 4 -12 6 14 6 минимальное: -19