Program p1; const n=5; var i:integer; kurs: array[1..n] of real; summa,r,bank: real; begin writeln('Введите сумму: '); read(summa); for i:=1 to n do begin writeln('Введите курс в ',i,' банке: '); read(kurs[i]); end; r:=0; for i:=1 to n do begin if (kurs[i]*summa)>r then begin r:=kurs[i]*summa; bank:=i; end; end;
writeln('Выгодно в банке №: ',bank); <span>end.</span>