сегодня последний день сдачи и нужно успеть! информатика 8 класс

Question

Информатика: сегодня последний день сдачи и нужно успеть! информатика 8 класс

SashaLaik · Accepted Answer

Результат работы и листинг программы в приложениях. Написано в PascalABC.NET но должно работать во всех Паскалях. ---------------------------- PROGRAM A20; CONST     max = 100; TYPE     matrix = array[1..max,1..max]of shortint; VAR     ar:matrix;     num:byte;     i,j:byte;     a,b,c:byte;     q:boolean; BEGIN   repeat   //  num := 5;     write( Введите размер матрицы n= );     readln(num);         for i:=1 to num do begin       for j:=1 to num do         read(ar[i,j]);     end;       i:=1;//диагональ...

MOGZ ответил

сегодня последний день сдачи и нужно успеть!
информатика 8 класс