Ответы на вопрос:
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.
Популярно: Информатика
-
vavkina201608.07.2021 00:29
-
IKarapuzikI09.01.2023 10:26
-
IgorGr1ef16.09.2020 19:56
-
KoTuK40518.02.2021 21:28
-
мпрлкт01.02.2023 01:35
-
sonya40113.09.2020 22:09
-
Anna19120323.04.2023 16:37
-
Qewcgbр28.04.2020 23:26
-
venyast56oxem2g02.07.2021 20:55
-
Ulyana2006mizik5B31.03.2022 11:25