ВВЕДИТЕ 8 ЭЛЕМЕНТОВ МАССИВА

5 4 3 3 2 2 7 15

15 7 5 4 3 3 2 2

Рис. 6.4. Результат работы PRG6_4

Задача 6.5 Имеются данные об успеваемости не более чем 24 учебных групп (в процентах). Определить, на сколько нужно повысить успеваемость в самой отстающей группе, чтобы достичь среднего уровня успеваемости.

PROGRAM PRG6_5;

CONST M = 24;

VAR MAS: ARRAY[1..M] OF REAL;

I, N: INTEGER;

MIN, SUM: REAL;

BEGIN

WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');

READLN(N);

REPEAT

WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА (%)');

READLN(MAS[1]);

UNTIL (MAS[1]<101)AND(MAS[1]>0);

MIN:= MAS[1];SUM:= MIN;

FOR I:= 2 TO N DO

BEGIN

REPEAT

READLN(MAS[1]);

UNTIL (MAS[1]<101)AND(MAS[1]>0);

SUM:= SUM+MAS[I];

IF MIN>MAS[I] THEN MIN:= MAS[l];

END;

WRITELN('ПОВЫСИТЬ УСПЕВАЕМОСТЬ В САМОЙ');

WRITELN('OTCTAЮЩЕЙ ГРУППЕ НА ', (SUM/N)-MIN)

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим длину массива N;

- при вводе значений элементов массива осуществляем про­верку на правильность данных - в интервале от 0 до 100;

- последовательно просматриваем элементы и находим наи­меньший элемент MIN и запоминаем сумму всех элементов;

- выводим результат как разность между средним арифмети­ческим элементов массива и минимальным значением.

Переменные:

MAS - массив чисел;

N - размер массива;

I - переменная цикла;

MIN - значение наименьшего элемента;

SUM - сумма элементов массива.

Задача 6.6 Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая зимой.