На листе электронной таблицы Excel задайте массив из 10 чисел. Численные значения нужно задать самостоятельно. Предусмотрите наличие положительных и отрицательных чисел. Используя соответствующие встроенные функции табличного редактора, вычислите произведение абсолютных величин отрицательных чисел и среднее арифметическое положительных чисел в этом массиве.
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i+j>5) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
2)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i>J) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.