Var
Z: array [1..10] of integer;
i: byte;
MaxOddId, MaxEvenId: integer;
begin
randomize;
writeln(' * * * Исходный массив * * *');
for i := 1 to 10 do
begin
Z[i] := random(50)-20;
MaxOddId := Z[1];
MaxEvenId := Z[2];
write(Z[i], ' ');
end;
for i := 1 to 10 do
begin
if i mod 2 = 0 then if Z[i] > MaxEvenId then MaxEvenId := Z[i];
if i mod 2 <> 0 then if Z[i] > MaxOddId then MaxOddId := Z[i];
end;
writeln(#13+'Максимальный элемент на четных ячейках = ', MaxEvenId);
writeln('Максимальный элемент на нечетных ячейках = ', MaxOddId);
end.
Sub aaa()
Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"
End Sub
Открыть
Проверить на вирусы
Открыть с помощью
Копировать
Отправить
Удалить
Свойства
Сноска — это ссылка вне основного текста на источник информации, использованный при написании статьи, или комментарий. Ссылка создаётся с помощью соответствующих тегов или шаблонов, которые нужно вставить после поясняемой части текста.
В окончательном тексте сноски размещаются автоматически в разделе «Примечания». Также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «Примечаниях» перед сноской ставится значок возврата к поясняемому тексту. Если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.