Регистрация
Mist3YT
01.06.2020 12:35
Информатика
Есть ответ 👍

Задачи. Питон. С использованием массивов.

280
453
Посмотреть ответы 2

Ответы на вопрос:

Olesqqqa
Olesqqqa
4,6(75 оценок)

Попробуй поискать в Интернете. Где-то ответ найдется

Объяснение:

moon137
moon137
4,7(73 оценок)
Var   i, e, min, max, s, n: integer;   c: real; begin   min : = 32767; max : = -32768; s : = 0; n : = 0;   write('введите 10 чисел через пробел ');   for i : = 1 to 10 do   begin       read(e);       if max < e then max : = e;       if min > e then min : = e;       if (e > = 100) and (e < = 999) then           if (i mod 10 = 1) and (i mod 7 = 0) then           begin n : = n + 1; s : = s + i end   end;   writeln('max=', max, ', min=', min);   if n > 0 then writeln('искомое среднее равно ', s / n: 0: 5)   else writeln('нет трехзначных чисел, оканчивающихся на 1 и кратных 7') end.

Популярно: Информатика