Отчет по практике: Основы программирования

writeln('Rezultiryushiy massiv: ');

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:3:0,' ');

writeln

end;

end;

begin

Vvod(a);

Vivod(a);

W(a);

Vivod2(a);

end.

3. Функции

Установить, к чему ближе по абсолютной величине наименьшее из двух чисел - к их среднему арифметическому или среднему геометрическому.

Var a,b : real;

average : real;

geometricmean : real;

minstr : string;

function min(a,b : real) :real;

begin

min := a;

minstr := 'Pervoe';

if (b < a) then

begin

min := b;

minstr := 'Vtoroe';

end;

end;