Напишите программу,которая
a)Выводит на экран один двухмерный массив(5*3),в котором вписаны целые числа в интервале от 50 до 100;
b)В массиве находится клетка с наименьшим значением.Показывает на экране.
a)Выводит на экран один двухмерный массив(5*3),в котором вписаны целые числа в интервале от 50 до 100;
b)В массиве находится клетка с наименьшим значением.Показывает на экране.
More Questions From This User See All
Answers & Comments
Verified answer
const n=5; m=3;
var a:array [1..n,1..m] of integer;
i,j,e:integer;
begin
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(51)+50;
write(a[i,j]:4)
end;
writeln;
end;
e:=a[1,1];
for i:= 1 to n do
for j:=1 to m do
if a[i,j]<e then e:=a[i,j];
writeln ('Наименьший элемент: ',e)
end.