Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197618
21.01.2020, 22:34
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:
Дан массив, состоящий из NХM элементов, значения которого вводится с клавиатуры. Найти наименьший элемент массив.



Приложение:
Pascal

Обсуждение

давно
puporev
Профессор
401888
1232
22.01.2020, 06:24
общий
это ответ
Здравствуйте, dkhrebtovich!
[code lang=pascal]var a:array[1..10,1..10] of integer;
n,m,i,j,min:integer;
begin
repeat
writeln('Введите размеры массива n,m от 2 до 10');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
if i+j=2 then min:=a[i,j]
else if a[i,j]<min then min:=a[i,j];
end;
writeln('Введенный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
write('Наименьший элемент=',min);
end.[/code]
Форма ответа