Решите с помощью Паскаля,пожалуйстаСформировать массив случайным образом(длина массива...

Question

Решите с помощью Паскаля,пожалуйста

Сформировать массив случайным образом(длина массива 20).Найти в нем среднее арифметическое.Сформировать новый массив из элементов первого больших среднего арифметического.

Answer 1

Program TZ5;
const
n=20;
var
a,z:array [1..n] of integer;
i,b,x:byte;
begin
randomize;
for i:=1 to n do begin
 a[i]:=random (20);
 a[i]:=a[i]-10;
        writeln(i,'  ',a[i]);
end;
b:=0;
for i:=1 to n do
    b:=b+a[i];
x:=1;
writeln;
for i:=1 to n do
    if a[i]>b/n then begin
       z[x]:=a[i];
       x:=x+1;
    end;
for i:=1 to x do
    writeln(i,' ',z[i]);
readln;
end.

Comments

Классический Pascal 6.0

---

Что означает const на второй строке?

---

Проблема лишь в том, что "классический Паскаль" существует лишь в пределах школ.

---

Да и то, слава богу, ежу не всех.

---

*уже

---

const это раздел, в котором объявляются константы, смотри следующую строку

---

А как по другому записать?Просто мы это не проходили

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-50,50); a.Println;
  var b:=a.Where(t->t>a.Average).ToArray; b.Println
end.

Пример
10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 31
10 32 7 10 6 14 2 15 10 11 28 31