Блог учителя Информатики

Решение задачи ExamBegin24


Условие задачи:

На вход подаются два целых положительных числа M и N (каждое число вводится с новой строки). Сформировать и вывести двумерный целочисленный массив размера M × N, у которого все элементы I-й строки имеют значение 10·I (I = 1, …, M). Каждую строку элементов массива выводить на новой экранной строке, для каждого числа отводить 6 экранных позиций.


uses PT4Exam;
const
  R = 100;
  S = 100;
var
  a:array[1..R,1..S] of integer;
  m,n,i,j:integer;
begin
  Task('ExamBegin24');
  Read(m, n);
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=i*10;
      Write(a[i,j]:6);
    end;
    Writeln;
  end;
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий