Вот задачка (циклы)
Эту задачку нужно переделать (Процедуры и Функции) в два варианта
1) чтобы была процедура
2) функция
В компьютер по очереди вводят расстояние от Москвы до областных центров
России. По мере поступления информации в компьютер печатать расстояние
самого удаленного города из тех, что уже обработаны.
Program Zadacha22;
Var
b,Kol,MaxKm:Integer;
City,maxcity:String;
Begin
ClrScr;
MaxKm:=0;
maxcity:=' ';
Write('Сколько проанализируем городов?');
Readln(Kol);
For b:=1 to kol do
Begin
Write('введите город:');
Readln(City);
Write('Расстояние от Москвы до',City,'=');
Readln(Km);
if MaxKm<Km
then
Begin
Maxkm:=km;
maxcity:=City;
end;
End;
Write('Самое большое расстояние от Москвы до',MaxCity,'=',Maxkm);
Readln;
End.