Написать программу на Pascale, параметры задачи на слайде.

program z1;

var z:array [1..18] of integer;

k,s:integer;

begin

randomize;

s:=0;

write ('Одномерная матрица: ');

for k:=1 to 18 do

begin

z[k]:=random(51)-25;

write (z[k]:5);

s:=s+z[k]

end;

writeln;

write ('s = ',s)

end.

Объяснение:

s:=s+z[k]  - сумма всех элементов матрицы (переменная k не учитывается)

если надо учитывать и переменную k - s:=s+z[k]+k