Question

НАПИШИТЕ ЧЕРЕЗ ПРОГРАММУ Pascal ABC, пожалуйста!​

Answer 1

Ответ:

const

  N = 9;

var

   mas: array [0..N] of integer;

   sum,i:integer;

begin

   for i:=0 to N do begin

      mas[i] := (i * 3 - 5);

   end;

   writeln('Массив: ');

   for i:=0 to N do begin

      write(mas[i] + ' ');

   end;

   writeln();

   for i:=0 to N do begin

      sum += mas[i]

   end;

   writeln('Сумма всех элементов массива = ' + sum);

end.

Объяснение:

Pascal.