Создать двумерный массив размером nxm.заполнить его произвольным обраом.найти разность первого и последнего элемента массива

тата238 тата238    1   20.05.2019 01:00    0

Ответы
LamanAchverdiyeva LamanAchverdiyeva  13.06.2020 07:25

const

  n = 5;
  m = 5;
var
  a: array[1..n, 1..m] of integer;
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do begin
      a[i, j] := random(100);
      write(a[i, j], ' ');
      if(j mod m = 0) then writeln;
    end;
  writeln('Разность первого и последнего эл. массива: ', a[1, 1] - a[n, m]);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика