Решить в Паскале и в С.Массив 4 на 4 Найти max и min оприделить разность и заменитьб все элементы главной диогонали на разность

+ 0 -

Balykinayana20

03 июля 2016 г., 21:27:50 (7 лет назад)

var
a:array [1..4,1..4] of integer;
i,j,min,max,raz:integer;
begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
a[i,j]:=random(20)+1;
write (a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]>max then max:=a[i,j] else
if a[i,j]<min then min:=a[i,j];
raz:=max-min;
writeln ('Raznost: ',raz);
writeln ('Max: ',max);
writeln ('Min: ',min);
for i:=1 to 4 do a[i,i]:=raz;
for i:=1 to 4 do begin
for j:=1 to 4 do write (a[i,j]:4);
writeln;
end;
readln;
end.

Вот в Паскале,с С как-то не знаком.