Question

PascalABC.NET Задать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент. (В развёрнутой форме, без команд ReadInteger, ReadArrInteger, Average и др.)

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,s,max):=(8,0,-MaxInt);
  var a:=new integer[n];
  Write('Введите 8 элементов массива: ');
  for var i:=0 to n-1 do begin
    Read(a[i]);
    s+=a[i];
    if a[i]>max then max:=a[i]
    end;
  Writeln('max=',max,', среднее=',s/n:0:5)
end.
 
Пример
Введите 8 элементов массива: 38 46 29 50 42 38 40 41
max=50, среднее=40.50000

Answer 2

Program wk;
var m:array [1..8] of integer; i:integer;sr:real;imax:integer ;
begin
sr:=0;imax:=0; 
for i:=1 to 8 do 
 begin 
   Readln(m[i]); 
   if m[i]>imax then imax:=M[i]; 
   end; 
for i:=1 to 7 do  sr:=m[i]+m[i+1];
Writeln('Среднее арифметическое=',sr/8);
Writeln('Наибольший элемент =',imax)   
end.