Сначала спрашивайте у пользователя число n, потом заполняйте массив (с проверкой на [-100..100]), потом в цикле проверяйте каждый элемент массива на кратность 5. Параллельно с проверкой на кратность (в том же цикле) кидайте первое кратное число в переменную max, и сравнивайте с это переменной другие числа, кратные 5. Если больше - перезаписываете значение max
Цикл: (counter - счетчик, n - колво чисел в массиве)
max := 0; for counter = 1 To n Do if (Massive[counter] mod 5) = 0 then if Massive[counter] > max then max := Massive[counter];
Задача сводится к суммированию элементов массива V с целью нахождения их среднего арифметического. Конечно, такую задачу можно решать и без массива, поскольку нам придется все равно данные вводить с клавиатуры, но уж раз сказано, что "компоненты..." сделаем с массивом.
const n = 7; s = 'PVSCPSV';
var v: array[1..n] of double; i: integer; m: double;
begin Writeln('Вводите суммы ежедневного дохода по дням'); m := 0; for i := 1 to n do begin Write(s[i], ': '); Readln(v[i]); m := m + v[i] end; Writeln('Средний доход за неделю составляет ', m / n:0:3) end.
Тестовое решение:
Вводите суммы ежедневного дохода по дням P: 142539 V: 363135 S: 217432 C: 57395 P: 294722 S: 115390 V: 184933 Средний доход за неделю составляет 196506.571
Цикл: (counter - счетчик, n - колво чисел в массиве)
max := 0;
for counter = 1 To n Do
if (Massive[counter] mod 5) = 0 then
if Massive[counter] > max then max := Massive[counter];
В конце выводите max
const
n = 7;
s = 'PVSCPSV';
var
v: array[1..n] of double;
i: integer;
m: double;
begin
Writeln('Вводите суммы ежедневного дохода по дням');
m := 0;
for i := 1 to n do
begin
Write(s[i], ': ');
Readln(v[i]);
m := m + v[i]
end;
Writeln('Средний доход за неделю составляет ', m / n:0:3)
end.
Тестовое решение:
Вводите суммы ежедневного дохода по дням
P: 142539
V: 363135
S: 217432
C: 57395
P: 294722
S: 115390
V: 184933
Средний доход за неделю составляет 196506.571