Регистрация
pportop
07.07.2022 20:13
Информатика
Есть ответ 👍

Нужно скачать 16гб
скорость:650кб.
за сколько с качается.​

188
214
Посмотреть ответы 2

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

lnv76911
lnv76911
4,8(4 оценок)

ответ: от 6 до 8 часов.

tranatar
tranatar
4,7(7 оценок)
Var     max,min,i: integer;     b: real;     a: array[1..9]of integer; begin for i: =1 to 9 do   begin   while (a[i]< 1) or (a[i]> 6) do     begin     write(i,' оценка: ');     readln(a[i]);     end;   if i=1 then     begin     max: =a[1];     min: =a[1];     end;   if a[i]> max then max: =a[i];   if a[i]< min then min: =a[i];   b: =b+a[i];   end; b: =(b-min-max)/7; writeln('зачетная оценка: ',b); end. 

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