Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N8

Program V41_N8;
uses crt;
var
A :array[1..5,1..5]of shortint;
B :array[1..5,1..5]of real;
i,j,k :byte;
Sa :real;
BEGIN
randomize;
clrscr;
writeln('€б室­ п ¬ ваЁж :');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
A[i,j]:=INTEGER(random($FF));
write(A[i,j]:6);
end;
writeln;
end;
write('‚ўҐ¤ЁвҐ ­®¬Ґа бва®ЄЁ 1 - 5: ');
readln(k);
Sa:=0;
for i:=1 to 5 do
if (i mod 2)=0 then
for j:=1 to 5 do Sa:=Sa+A[i,j];
Sa:=Sa/10;
for i:=1 to 5 do
if i<>k then for j:=1 to 5 do B[i,j]:=A[i,j]-Sa
else for j:=1 to 5 do B[i,j]:=A[i,j];
writeln;
writeln('Sa = ',Sa:0:2);
writeln;
writeln('ђҐ§г«мв в: ');
for i:=1 to 5 do begin
for j:=1 to 5 do
write(B[i,j]:8:2);
writeln;
end;
readln;
END.