По введенному номеру от 1 до 7 выводит на экран день недели

Question

Информатика: По введенному номеру от 1 до 7 выводит на экран день недели

K1p2r4f4 · Accepted Answer

Const   n = 9; var   a:array[1..n,1..n] of integer;   i,j,k,max: integer; begin   Randomize;   Writeln( Исходная матрица );   max:=-100;   for i:=1 to n do   begin     for j:=1 to n do     begin       a[i,j]:=Random(51)-25;       Write(a[i,j]:4);       if max a[i,j] then max:=a[i,j]     end;     Writeln   end;     for i:=2 to n-1 do { не просматривать первую и последнюю строки }     for j:=1 to n do       if a[i,j]=max then a[i,j]:=0;     Writeln( Результирующая матрица );   for i:=1 to n do   begin...

MOGZ ответил