Можно посмотреть мою программу, вроде бы все написал а результат при пересчете не верный.
Она должна. Создать функцию, определяющую в целочисленном прямоугольном массиве сумму всех элементов, соприкасающихся углами с его максимальным элементов.
Цитата:
uses crt;
const
n=4;
c=5;
type massiv = array [1..n,1..c] of integer;
procedure zapolnenie(var m:massiv);
var vmin,vmax,i,j:integer;
begin
randomize;
write('vmin=');
readln(vmin);
write('vmax=');
readln(vmax);
for i:=1 to n do
begin
for j:=1 to c do
m[i,j]:=random(vmax-vmin+1)+vmin;
end
end;
procedure vivod(var m:massiv);
var i,j:integer;
begin
For i:=1 To n Do
Begin
For j:=1 To c Do
Write(m[i,j]:5);
WriteLn;
End;
end;
procedure max (m:massiv);
var jmax,imax,max,i,s,j:integer;
begin
max:=0;
for i:=1 to n do
begin
for j:=1 to c do
begin
if max<m[i,j]
then
max:=m[i,j];
imax:=i;
jmax:=j;
end;
end;
S:=0;
for i:=imax-1 to imax+1 do
for j:=jmax-1 to jmax+1 do
begin
if (i>0) and (i<=n) and (j>0) and (j<=c) and Not((i=imax) and (j=jmax)) then
S:=S+m[imax,jmax];
end;
writeln('max=',max);
writeln('sum=',S);
end;
var m:massiv;
begin
writeln('Massiv');
Zapolnenie(m);
vivod(m);
max(m);
end.
|