Предмет: Информатика,
автор: 5adost23
помогите пожалуйста.Дан массив К , состоящий из 45 элементов. Элементы массива произвольные целые числа. Определить минимальный элемент массива и его индекс.
Ответы
Автор ответа:
0
Ответ:
var a, i, min, mini:longint;
arr:Array[1..100] of longint;
begin
for i:=1 to 45 do
read(arr[i]);
min = arr[1];
for i:=1 to 45 do begin
if (arr[i] < min) then
min = arr[i];
mini = i;
end;
writeln(min,' ',min);
end.
Объяснение:
Похожие вопросы
Предмет: Алгебра,
автор: alyaalyaalink
Предмет: География,
автор: Тanya00
Предмет: Биология,
автор: KeikoChan
Предмет: Физика,
автор: grigorevavi
Предмет: Математика,
автор: АружанАтабаева