Определить разность R = S1 - S2, где S1 – сумма индексов максимальных элементов массива; S2 – сумма индексов минимальных элементов массива
ABCPascal
Ответы
Ответ дал:
0
var
A: array[1..10] of integer;
maxIndex, minIndex: integer;
R: integer;
begin
maxIndex := 1;
minIndex := 1;
for i := 1 to 10 do
begin
if A[i] > A[maxIndex] then
maxIndex := i;
if A[i] < A[minIndex] then
minIndex := i;
end;
R := maxIndex - minIndex;
writeln(R);
end.
Вас заинтересует
2 месяца назад
2 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад
7 лет назад