Дан двумерный массив, содержащий 2 строки и 4 столбца. Элементами массива являются целые числа. Найти наименьший элемент массива и место его расположения.
writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])
end.
Объяснение:
Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.
Если наименьших индексов больше одного, то на экран будет выведено расположение первого.
Для решения определим 1. Время передачи по высокоскоростному каналу 2. Время передачи по низкоскоростному каналу 3. Время для получения первых 1024 Кб 4. Всё сложим.
Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию.
program z1;
var a:array[1..2,1..4] of integer;
i,j,mi,mj:integer;
begin
mi:=1;
mj:=1;
writeln('Массив: ');
for i:= 1 to 2 do
begin
for j:= 1 to 4 do
begin
a[i,j]:=random (10);
write(a[i,j]:3);
if a[i,j]<a[mi,mj] then
begin
mi:=i;
mj:=j
end
end;
writeln;
end;
writeln;
writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])
end.
Объяснение:
Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.
Если наименьших индексов больше одного, то на экран будет выведено расположение первого.