2.Разработать программу, предполагая заданной матрицу А из 5 строк и 5 столбцов.
Если средне арифметическое элементов C1, C2, …, C7 больше минимального элемента матрицы, уменьшить на величину последнего каждый из элементов C1, C2, …, C7.
Если правильно понял условие, то что-то типат того:
Код
uses crt;
const n=5;
p=7;
k=7;
var a:array[1..n,1..n] of integer;
c:array[1..p] of integer;
i,j,s,min:integer;
sr:extended;
Begin
clrscr;
randomize;
i:=1;
j:=1;
min:=a[i,j];
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:2);
write(' ');
if a[i,j]<min then
min:=a[i,j];
end;
writeln;
end;
writeln;
s:=0;
for i:=1 to p do
begin
c[i]:=random(11);
write(c[i]);
write(' ');
s:=s+c[i];
end;
sr:=s/k;
writeln;
writeln('sr=',sr:2:2);
writeln('a[i,j]min=',min);
if sr>min then
for i:=1 to p do
begin
c[i]:=c[i]+min;
write(c[i]);
write(' ');
end;
end.