Program Pro1;
<span>type Date = record
day : 1..31;
mounth : 1..12;
year : integer;
end;
Person = record
SurnameName : string;
Birthday : date;
end;
<span>ListOfPeople = array [1..50] of person;
var</span></span>
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;<span>
begin
for i:=1 to 50 do
begin</span>
<span>Write('<span>Human '+IntToStr(i)+':')
</span>Write('Input </span>Surname and <span>Name:')
</span>ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year)<span><span>:')
</span>Read(People[i].</span>Birthday.day, People[i].Birthday.mounth, <span><span>People[i].Birthday.year);
</span>end;
//
</span><span>JoungHumanIndex:=1;
//
</span>JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year<span><span> * 32 * 13;
</span>for i:=2 to 50 do
if </span><span>JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year<span> * 32 * 13 then
begin</span></span>
//
JoungHumanIndex:=i;
//
<span><span>JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;</span>
</span>
<span>WriteLn('Most joung human: '+</span>People[JoungHumanIndex]<span><span><span>.<span>SurnameName</span></span>);
</span>end.</span>
const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
....................................
Program Anutka1506;
uses crt;
var
x,y,s,p: real;
begin
writeln('Введите числа:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
s:=(x+y)/2;
p:=2*x*y;
if x<y then
begin
x:=s;
y:=p;
end
else
begin
x:=p;
y:=s;
end;
writeln('X=',x,' Y=',y);
end.
Ответ будет -32. Условие не выполняется, идем по ветке else потому что 1 не больше чем 3