** обработку поступает последовательность из четырёх целых чисел. Нужно написать...

Question

На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран сумму всех отрицательных чисел последовательности и максимальное число в последовательности. Известно, что вводимые числа по абсолютной величине не превыша-ют 1000. (Напишите программу для паскаля) БУДУ ОЧЕНЬ БЛАГОДАРЕН !

Answer 1

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.

Comments

Спасибо

Answer 2

//PascalABC.NET 3.3,сборка 1625 от 16.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

 var mas:=ReadArrInteger(4);

 Writeln('Сумма отрицательных элементов равна ',mas.Where(t->t<0).Sum);<br>
  Writeln('Максимальное число в последовательности равно ', mas.max);

end.

---