Можно пожалуйста по подробнее
Program mas2;
uses crt;
var
a:array[1..5] of integer;
b:array[1..5] of integer;
t,i,m1,m2:integer;
begin
randomize;
clrscr;
writeln('Vvedite T');
readln(t);
for i:=1 to 5 do
a[i]:=random(t+1);
b[i]:=random(t+1);
if a[i]<t then m1:=m1+1
else
if b[i]<t then m2:=m2+1;
if m1>m2 then
begin
for i:=1 to 5 do
write(' ',a[i])
end
else
for i:=1 to 5 do
write(' ',b[i]);
writeln;
end.
Может не совсем красиво, но зато работает)))
Program MAXOF3;
Var a,b,c,t,max: Real;
Begin
Writeln('Type 3 different numbers');
Write('a = '); Read(a);
Write('b = '); Read(b);
Write('c = '); Read(c);
t := (a+b)/2 + abs(a-b)/2; {abs(x) - модуль числа х}
max := (t+c)/2 + abs(t-c)/2;
Writeln('max = ', max:2); {:2 - количество знаков после запятой}
End.
Program a2;
var a,b:integer;
begin
write('Введите целое числo');
readln(a);
if a > 0 then begin
b:=a div 2;
end
else
begin b:=a*a;
end;
write ('b',b);
<span> end.</span>