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