1. Главная
  2. Библиотека
  3. Информатика
  4. Найти наибольшее значение курса доллара.

Найти наибольшее значение курса доллара.

«Найти наибольшее значение курса доллара.»
  • Информатика

Условие:

Курс доллара в течение года менялся в диапазоне от 63 руб. до 70руб. Найти наибольшее значение курса доллара. В качестве результата вывести номер месяца и значение курса доллара.

Решение:

Листинг программы:

program pascal3;

var arr:array[1..12] of integer;

max,q,maxq:integer;

begin

for q:=1 to 12 do

arr[q]:=random(63, 70);

max:=arr[1];

for q:=2 t...

Не нашел нужную задачу?

Воспользуйся поиском

Выбери предмет