49. У вас есть доллары. Вы хотите обменять их на
рубли. Есть информация о стоимости купли-продажи в банках города. В городе N
банков. Составьте программу, определяющую, какой банк выбрать, чтобы выгодно
обменять доллары на рубли.
Решение
program
lab49;
var
a:array[1..100]of
integer;
i,j,n,k:integer;
begin
writeln('Vvedite
kolichestvo bankov:');
readln(n);
writeln('Vvedite
stoimost pokupki dollara v bankah:');
for i:=1
to n do
begin
write('V
',i,'-om banke ');
readln(a[i]);
end;
k:=1;
for i:=1
to n do
if
a[i]>a[k] then k:=i;
writeln('Vigodney
prodat dollar v',' ',k,' ','banke za',' ',a[k],' ','rub');