Если у тебя c нужно вводить, то смотри на первый скрин, а если c уже дано, то смотри на второй.
2*2*300 = 4*300 = 1200 точек.
1200 точек * 24 бита = 28800 бит = 3600 байт
Есть переменная, равная 0 и есть цикл в котором сравнивается поочередно значения из массива и эта переменная, если значение переменной меньше, то переменная принимает значение данного элемента массива.
В итоге переменная содержит самое большое значение из массива.
Const N = 100;
Var m:array [1..N] of integer; i,max,o:integer;
begin
randomize;
o:=0;
for i:=1 to N do begin
m[i]:= random(1000);
if m[i]>max then max:=m[i]; end;
for i:=1 to N do begin
write(m[i],' ');
if (m[i]>o) and (m[i]<max) then o:=m[i]; end;
writeln;
writeln('--=',o,' =--');
readln;
end.<span>
</span>