Const n=10;
Var a:array[1..n] of integer; i,max:integer;
Begin
randomize;
for i:=1 to n do a[i]:=random(201)-100;
for i:=1 to n do write(a[i],' ');
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max=',max);
End.
9 Кбайт = 9216 Байт = 73728 Бит
2,5 Кбайт = 2560 Байт = 20480 Бит
4831838208 Байт = 4608 Мбайт = 4718592 Кбайт
Пояснение : 1 Кбайт = 1024 Байт, 1 Байт = 8 Бит
1 Мбайт = 1024 Кбайт
Вот программа и результат ее работы (см. скриншоты)
Эта программа находит максимальный элемент, стоящий на четном месте и минимальный элемент, стоящий на нечетном месте
Затем max и min складываются.
Чтобы протестировать программу необходимо УБРАТЬ ввод датчиком случайных чисел (random) и написать ввод с клавиатуры.
Сейчас выставлю второй вариант (для тестирования)
Решение см. внутри
-----------------------------
