Массив

[Fender92]

Задан массив А 5Х5. Заполнить его случайными числами. Вывести на экран элементы массива, значения которых больше среднего арифметического значения всего массива.

[rubius2008]

заполнение

randomize; for i:=1 to 5 do for j:=1 to 5 do a[i,j]:=random(20);

находим среднеариф.

sa:=0; for i:=1 to 5 do for j:=1 to 5 do sa:=sa+a[i,j]/25;

вывод нужных элементов

for i:=1 to 5 do for j:=1 to 5 do if a[i,j]>sa then write(a[i,j]:4);

[Fender92]

Сообщение от rubius2008

заполнение

randomize; for i:=1 to 5 do for j:=1 to 5 do a[i,j]:=random(20);

находим среднеариф.

sa:=0; for i:=1 to 5 do for j:=1 to 5 do sa:=sa+a[i,j]/25;

вывод нужных элементов

for i:=1 to 5 do for j:=1 to 5 do if a[i,j]>sa then write(a[i,j]:4);

Спасибо большое .
А это полный код???

[rubius2008]

Сообщение от Fender92

А это полный код???

нет, это фрагмент реализации решения. Осталось описать все переменные и запихнуть это в исполняемую часть программы, если конечно ничего больше не надо. Тут уж самостоятельно попробуйте, тут все таки помогают, а не решают все за вас.
Если нужно, чтоб сделали всю программку, то готовьте денежку и обращайтесь ко мне (см. асю) или в раздел фриланс, тогда у вас будет полноценный работающий код, с комментариями.