20 символов блэт аааааааааааа
program rost;
var h1,h2,h3: integer;
begin
write ('Введите рост трёх спортсменов');
read(h1,h2,h3);
writeln;
if (h1<h2) and (h2<h3) then
write ('По росту') else
write ('Не по росту');
end.
Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.
Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>
С какими списками? Я не знаю по какому учебнику вы учитесь)