PROGRAM PRG6_6;
CONST M = 12; VAR MAS: ARRAY[1..M) OF REAL; I: INTEGER; MIN, MAX: REAL; BEGIN FOR I:= 1 TO 12 DO BEGIN WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА'); READLN(MAS[I]); END; МАХ:= MAS[6];MIN:= MAS[12]; FOR I:= 7 ТО 8 DO IF MAX<MAS[I] THEN MAX:= MAS[I]; FOR I:= 1 TO 2 DO IF MIN>MAS[I] THEN MIN:= MAS[I]; WRITELN('CAMAЯ ВЫСОКАЯ ТЕМПЕРАТУРА ЛЕТОМ ', MAX); WRITELN('CAMAЯ НИЗКАЯ ТЕМПЕРАТУРА ЗИМОЙ ', MIN) END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим 12 элементов массива за 12 месяцев; - последовательно просматриваем элементы и находим наименьший элемент MIN за зимние месяцы и МАХ за летние месяцы; - выводим результат. Переменные: MAS - массив чисел; MIN - наименьшая среднемесячная температура зимой; МАХ - наибольшая среднемесячная температура летом; I - переменная цикла. Задача 6.7 В коллекции нумизмата не более чем 90 монет всех возможных достоинств. Определить, сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера PROGRAM PRG6_7; CONST M = 90; VAR MAS, NUM2, NUM5: ARRAY[1..M] OF INTEGER; M20, M50, I, N: INTEGER; BEGIN WRITE('BBEДИTE РАЗМЕР МАССИВА N = '); READLN(N); M20:= 0;M50:= 0; WRITELN('ВВЕДИТЕ ', N,' ЭЛЕМЕНТОВ МАССИВА'); FOR I:= 1 TO N DO BEGIN READ(MAS[I]); CASE MAS[I] OF 20: BEGIN M20:= M20+1;NUM2[M20]:= I END; 50: BEGIN M50:= M50+1;NUM5[M20]:= I END;(должно быть [M50]:=1?) END; END; WRITELN('MOHET ДОСТОИНСТВОМ 20 РУБЛЕЙ ', M20,' ШТУК'); WRITELN('ИX ПОРЯДКОВЫЕ НОМЕРА: '); FOR I:= 1 ТО M20 DO WRITE(NUM2[I]: 3);
|
