PascalABC.NET Задать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент. (Версия Паскаля 3.1)
Const n=8; var s,max,i:integer; a:array[1..n] of integer; begin max:=-32768; Write('Введите 8 элементов массива: '); for i:=1 to n do begin Read(a[i]); s:=s+a[i]; if a[i]>max then max:=a[i] end; Writeln('max=',max,', среднее=',s/n:0:5) end.
Спасибо большое
Хорошо, в следующий раз учту
Да, жаль что преподавателям это не нужно
Я и имел ввиду преподавателей моего УЗ. Не отрицаю, что есть множество грамотных учителей, но лично мне, к сожалению, они попадались редко