ОбъясОтличник
program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
Подробнее - на -
program fantscrin;
const n = 10;
var a: array [1..n] of integer;
b: array [1..n] of integer;
max_a,max_b,i,k:integer;
begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
b[i]:=random(20);
for i:=1 to n do
write(a[i], ' ');
writeln('');
for i:=1 to n do
write(b[i], ' ');
max_a:=1;
for i:=2 to n do
if(a[i]>a[max_a]) then max_a:=i;
max_b:=1;
for i:=2 to n do
if(b[i]>b[max_b]) then max_b:=i;
writeln('');
writeln('Max_a = ',max_a);
writeln('Max_b = ',max_b);
k:=a[max_a];
a[max_a]:=b[max_b];
b[max_b]:=k;
for i:=1 to n do
write(a[i], ' ');
writeln('');
for i:=1 to n do
write(b[i], ' ');
end.
3 Палитра цветов
4.Рабочая область
5строка меню
1.полосы прокруткий
2.Строка зоголовкий