Установите соответствие. Выполните решение в пустой ячейке

Question

Информатика: Установите соответствие. Выполните решение в пустой ячейке ​

fietisov · Accepted Answer

//Pascal
var
A: array [1..5] of integer;
min, max, minInd, MaxInd: integer;
i: byte;
begin
writeln('Заполнение массива.');
for i := 1 to 5 do
begin
write('А[', i, '] = '); readln(A[i]);
end;
writeln;
Max := A[1]; Min := A[1];
for i := 1 to 5 do
begin
if Max < A[i] then begin Max := A[i]; MaxInd := i; end;
if Min > A[i] then begin Min := A[i]; MinInd := i; end;
end;
writeln('Номер минимального элемента = ', MinInd);
writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd);
end.

1.найти номер минимального элемента массива. 2. найти номера минимального и максимального элементов

1.найти номер минимального элемента массива. 2. найти номера минимального и максимального элементов

Установите соответствие. Выполните решение в пустой ячейке​

MOGZ ответил