Question

Заполните двумерный массив размерностью 3*2 случайными числами в диапазоне от -30 до 50. Определите квадрат минимального элемента.

Answer 1

Program sss;
var i,j,n:integer;
a:array[1..2,1..3] of integer;
begin
n := 51;
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
  a[i,j] := random(-30,50);
  write(a[i,j],' ');
  if a[i,j] < n then n := a[i,j];
end;
writeln;
end;
write(n*n);
end.