Question

PascalABC.NET

Задать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент. (Версия Паскаля 3.1)

Answer 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.

Answer 2

Ну а результат Вы видите: вместо трех строк - пятнадцать. Вот оно - устаревшие технологии.

Answer 3

Да, жаль что преподавателям это не нужно

Answer 4

Это не нужно ВАШИМ преподавателям. Не следует всех преподавателей гамузом в обскурантисты зачислять.

Answer 5

Я и имел ввиду преподавателей моего УЗ. Не отрицаю, что есть множество грамотных учителей, но лично мне, к сожалению, они попадались редко

Answer 6

Ну что сказать... не повезло.