Сформировать связанный список в ходе ввода данных.Вычеслить среднее арифмитическое элементов данного списка и вывести на экран сформированный список.на Паскале.

2
что значит вывести сформированный список
хз
Срочно в 11 вечера?
дааа
мне надо маленького ребёнка укладывать спать

Ответы и объяснения

2013-11-24T22:58:28+04:00
Для массива из 10 элементов:

program test;
uses crt;
var
 arr:array[1..10] of integer;
 i,sum:integer;
 avr:real;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('Input: ');readln(arr[i]);
  sum:=sum+arr[i];
 end;
 avr:=sum/length(arr);
 for i:=1 to 10 do
  write(arr[i],' ');
 writeln;
 write('Average=',avr);
end.

"Сформировать связанный список в ходе ввода данных." Похоже на массив, но можно и без него согласен.
У меня FreePascal, сейчас в Borland посмотрю.
Ну да, Length в древних компиляторах только со строками работает. Можно на число элементов массива заменить т.к. они статические в принципе.
это free pascal древний. а pascalabc.net наиболее приближен к delphi и object pascal.
Delphi мертв, а FreePascal и Lazarus напротив активно развиваются.
2013-11-24T22:59:57+04:00
 program srednee_a;
uses crt;
var srednee,chislo,summa: real;
      i,n: integer;
begin 
write('Введите количество чисел: ');
read(n);
summa:=0;
for i:=1 to n do
begin
write('Введите число: ');
read(chislo);
summa:=summa+chislo;
end;
srednee:=summa/n;
write(srednee);
end.


у меня получилось. вывести среднее арифметическое.
спасибо всем)