чето типо того
uses crt;
var a,b,s:real; z:char;
procedure vyvod(s:real);begin write(s); end;
procedure plus(a,b:real);
begin
s:=a+b;
write('Suma = '); vyvod(s);
end;
procedure minus(a,b:real);
begin
s:=a-b;
write(' = '); vyvod(s);
end;
procedure mn(a,b:real);
begin
s:=a*b;
write(' = '); vyvod(s);
end;
procedure de(a,b:real);
begin
s:=a/b;
write(' = '); vyvod(s);
end;
procedure vvod(a,b:real; z:char);
begin
writeln('Write a,b');
readln(a,b);
writeln('CHOOSE + - * / ');
readln(z);
case z of
'+':plus(a,b);
'-':minus(a,b);
'*':mn(a,b);
'/':de(a,b);
end;
end;
begin
vvod(a,b,z);
readln;
end.
Program a_86betiri;
uses crt;
const n=20;
var
a:array[1..n] of real;
sum, mt: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
mt:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
sum:=sum+a[i];
end;
writeln('Элементы массива:');
for i:=1 to n do
begin
if a[i]<(sum/n) then
mt:=mt*a[i];
write (a[i]:7:2);
end;
writeln();
writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt);
end.
