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.