PascalABC.NET Задать массив из 8-ми элементов заданных с клавиатуры. Найти...

0 голосов
83 просмотров

PascalABC.NET

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


Информатика (162 баллов) | 83 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(150k баллов)
0

Спасибо большое

0

Хорошо, в следующий раз учту

0

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

0

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