Code
var {опишешь переменные}
a:array [1..10] of integer;
b:array [1..10] of integer;
begin
randomize;
for I:=1 to 10 do
a[i]:=random(100);
s:=0
for i:=1 to 10 do
s:=s+a[i];
sr:=s/10
{здесь я делю на кол-во элементов массива. я взял кол-во элементов массива случайное. так, в принципе, если задано какое то определенное кол-во элементов в массиве, то делим на их кол-во}
[i]for i:=1 to 10 do
for j:=1 to 10 do
if a[i]>sr then b[j]:=a[i];[/i]
for J:=1 to 10 do
writeln(j[i]);
end.
решение задачи самое простое и тривиальное. настоятельно советую проверить на компе или чтоб проверил кто нить из умных дядек)))(Alexander, Seqular), потому что писал второпях.
также не совсем уверен в куске, обозначенному курсивом - не уверен нужно ли туда бегин с эндом втыкать
Добавлено (10.11.2008, 22:24)
---------------------------------------------
сори, курсив не отобразился, поэтомму напишу сам этот кусок
Quote
for i:=1 to 10 do
for j:=1 to 10 do
if a[i]>sr then b[j]:=a[i];
P.s. тегами [и], [/и] обозначал курсив, они не относятся к коду программы
. А вот самый "незаметный" девятый пункт должен соблюдаться неукоснительно.
