Question

PascalABC.NET

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

Answer 1

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.

Answer 2

sr:=Abs(m[i])+Abs(m[i+1]); - Вы уверены, что вычисляете среднее арифметическое? Я - нет.

Answer 3

PROGRAM yaPak;
var
a:array[1..8]of integer;
i,max:integer;
y:real;
BEGIN
y:=0;
for i:=1 to 8 do
begin
readln(a[i]);
y:=y+a[i];
writeln('a[',i,']=',a[i]);
end;
y:=y/8;
max:=1;
for i:=1 to 8 do
begin
if a[max] <= a[i] then
begin
max:=i;
end;
end;
writeln('cpegHeapuFMeTu4eckoe=',y);
writeln('a[',i,']=',a[max],' caMbiII 6oJlbIIIoII eJleMeHT');
END.

Answer 4

породон, в последнем до слов END. где writeln('a[',i тут заменить i на max,']=',a[max],' caMbiII 6oJlbIIIoII eJleMeHT');

Answer 5

"Вот тут играйте, тут не играйте, тут снова играйте, а тут рыбу заворачивали..." (с)

Answer 6

// 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 7

Так что советую Вам дать билет снова с учетом замечаний.

Answer 8

Знаю. И изначально эта программа выходила в 2 строки, но к сожалению её не приняли, т.к. Паскаль в УЗ не обновляется

Answer 9

Вопрос пересоздам, спасибо

Answer 10

Не обновляется потому, что в умах преподавателей вашего УЗ все еще сидит паскаль в виде, придуманном Н.Виртом в 1973 году.

Answer 11

Пересоздайте вопрос за минимум баллов, я напишу ответ