Question

Помогите пожалуйста!!! Мне очень нужна ваша помощь!!! Помогите решить 3 задачу (3 обязательно, но можно ещё и 1 и 2)!! Заранее благодарю!

Answer 1

1.
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(111)-10;
write(a[i,j]:4)
end;
writeln
end;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]>a[3,3] then s:=s+a[i,j];
writeln ('Сумма элементов больше элемента с номером [3,3] и равного ',a[3,3],' равна: ',s)
end.

2.
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,k:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(121)-100;
write(a[i,j]:4)
end;
writeln
end;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]<0 then
begin
s:=s+a[i,j];
k:=k+1
end;
writeln ('Среднее арифметическое всех отрицательных элементов равно: ',s/k)
end.

3.
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,k,l:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(81)-40;
write(a[i,j]:4)
end;
writeln
end;
write ('Введите номер столбца и номер строки: ');
readln (k,l);
for i:= 1 to n do
for j:=1 to n do
if a[i,j]<a[l,k] then s:=s+a[i,j];
writeln ('Сумма элементов меньше элемента с номером [',l,',',k,'] и равного ',a[l,k],' равна: ',s)
end.