Вообщем написал задачу, все вроде ничего, но вот первый МАХ считает, а вот 2й никак. Вид программы должен остаться такой же.
Я считаю, что недочет идет во 2м IF'e
program qq;
uses crt;
const N = 5;
var a: array [1..N] of integer;
i, Max, Maxx: integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to N do begin
a[i] := random(20) -10;
write(a[i]:4);
end;
Max := a[1];
for i:=2 to N do begin
if a[i] > Max then Max :=a[i] else
if (Max>Maxx) and (maxx>a[i]) then maxx:=a[i]; end;
<<<Вот здесь
writeln;
writeln(max:4, maxx:4);
end.