В одномерном массиве состоящем из n целочисленных элементов вычислить Помогите, эти два варианта на фотках
В одномерном массиве состоящем из n целочисленных элементов вычислить
Помогите, эти два варианта на фотках
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1172
//2
Const
n=4;
m=6;
Type
ty=array[1..n,1..m] of integer;
Procedure SimpleProc(var ma:ty);
Var
i,j,c:integer;
begin
for j:=1 to m do
for i:=1 to n div 2 do
begin
c:=ma[i,j];
ma[i,j]:=ma[m-i-1,j];
ma[m-i-1,j]:=c;
end;
end;
Var
ma:ty;
i,j,sum,max,x,y:integer;
begin
randomize;
writeln('First matrix:');
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(10);
write(ma[i,j]:4);
end;
writeln;
end;
SimpleProc(ma); //симметрия
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to m do
write(ma[i,j]:4);
writeln;
end;
SimpleProc(ma); //Возвращаем в прежнее положение
readln(x);
for j:=1 to m do
sum:=sum+ma[x,j];
writeln('Sum=',sum);
max:=Integer.MinValue;
readln(y);
for i:=1 to n do
if max
Не нашли ответ?
Похожие вопросы