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
