На обработку поступает последовательность из четырёх целых чисел. нужно написать программу, которая выводит на экран сумму всех отрицательных чисел последовательности и максимальное число в последовательности. известно, что вводимые числа по абсолютной величине не превыша-ют 1000. (напишите программу для паскаля) буду !

290

349

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

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

ДевочКаНауКи

Информатика

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

Var a: array[1..4] of integer; i, sum, maxi: integer; begin maxi: = -1001; for i: = 1 to 4 do begin read(a[i]); if a[i] > maxi then maxi: = a[i]; if (a[i] < 0) then inc(sum,a[i]); end; writeln('сумма отрицательных элементов равна ',sum); writeln('максимальное число в последовательности равно ', maxi); end.