Сформировать матрицу по правилу - Turbo Pascal (33993)

Формулировка задачи:

Составьте программу ввода и вывода матрицы A там картинка с числами


textual

Код к задаче: «Сформировать матрицу по правилу - Turbo Pascal (33993)»

const
  n=3;
  m=4;
var
  a: array[1..n,1..m] of integer;
  i,j: integer;
begin
  writeln('Ââåäèòå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('A[',i,',',j,']=');
      readln(a[i,j]);
    end;
  writeln('Ïîëó÷åГ*Г*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.545 из 5

Источник
Похожие ответы