создать двумерный массив размером NXM.Заполнить его произвольным обраом.найти разность первого и последнего элемента массива
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
