Заполните двумерный массив размерностью 3*2 случайными числами в диапазоне от -30 до 50. Определите квадрат минимального элемента.
Заполните двумерный массив размерностью 3*2 случайными числами в диапазоне от -30 до 50. Определите квадрат минимального элемента.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы