:у вас есть доллары. вы хотите обменять их на рубли. есть информация стоимости купли-продажи в банках города. в городе n банков. составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно. язык программирования паскаль abc

116

388

Посмотреть ответы 2

Ответы на вопрос:

Олиф1

Информатика

4,4(13 оценок)

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); end.