Реферат: Одномерные массивы. Организация ввода и вывода данных

Writeln('vvedite R i H');

Readln(R,H);

O:=obem(R,H);

Writeln('Obem=',O:2:2);

Readln;

End.

Задание 27.

Написать фукцию, возвращающую:

а) минимальное среди двух;

б) максимальное среди двух;

Program p2;

Uses crt;

Var a,b:integer;

min,max:integer;

Function maximum(a,b:integer):integer;

Begin

ClrScr;

if a>b then maximum:=a

else maximum:=b;

End;

Function minimum(a,b:integer):integer;

Begin

if a<b then minimum:=a

else minimum:=b;

End;

Begin

Read(a,b);

max:=maximum(a,b);

min:=minimum(a,b);