Регистрация
MezarYT
13.07.2020 08:55
Информатика
Есть ответ 👍

нужна . Буду благодарен.

164
188
Посмотреть ответы 1

Ответы на вопрос:

оля1890
оля1890
4,4(98 оценок)
//пришло время писать низкокачественный код //низкокачественный код сам себя не напишет! //pascal abc.net версия 2.2 сборка 790 var ar: array of array of integer; m,n,i,k,j: integer; begin; j: =1; readln(n); readln(m); setlength(ar,n+1); for i: =1 to n do setlength(ar[i],m+1); writeln('matrix: '); for i: =1 to m*n do begin; inc(k); ar[j,k]: =j*k; write(ar[j,k],' '); if k=m then begin; k: =0; inc(j); writeln; end; end; end. пример ввода: 3 8 пример вывода: matrix: 1 2 3 4 5 6 7 8 2 4 6 8 10 12 14 16  3 6 9 12 15 18 21 24 

Популярно: Информатика