Размещено 5 лет назад по предмету Информатика от 00Fenix00

PascalABC.NET

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

Ответ на вопрос

Ответ на вопрос дан Impersona1

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.
1. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  sr:=Abs(m[i])+Abs(m[i+1]); - Вы уверены, что вычисляете среднее арифметическое? Я - нет.
2. Ответ на вопрос
  
  Ответ на вопрос дан Пирокар
  
  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.
3. Ответ на вопрос
  
  Ответ на вопрос дан Пирокар
  
  породон, в последнем до слов END. где writeln('a[',i тут заменить i на max,']=',a[max],' caMbiII 6oJlbIIIoII eJleMeHT');
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  "Вот тут играйте, тут не играйте, тут снова играйте, а тут рыбу заворачивали..." (с)
Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

// 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
1. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Так что советую Вам дать билет снова с учетом замечаний.
2. Ответ на вопрос
  
  Ответ на вопрос дан 00Fenix00
  
  Знаю. И изначально эта программа выходила в 2 строки, но к сожалению её не приняли, т.к. Паскаль в УЗ не обновляется
3. Ответ на вопрос
  
  Ответ на вопрос дан 00Fenix00
  
  Вопрос пересоздам, спасибо
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Не обновляется потому, что в умах преподавателей вашего УЗ все еще сидит паскаль в виде, придуманном Н.Виртом в 1973 году.
5. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Пересоздайте вопрос за минимум баллов, я напишу ответ