Преобразовать массив по правилу

@Pan_Кust · Регистрация: 14.05.2010

Author24 — интернет-сервис помощи студентам

Заполнить одномерный массив из N элементов случайными целыми числами. Преобразовать его в массив, в первой части которого будут элементы меньше среднего арифметического, а во второй части – элементы больше среднего арифметического. Первую часть подкрасить синим цветом, вторую – красным.

@TarW · 31.05.2010, 23:07

Pascal

Uses
   crt;
Const
   N=10;
Type
   TMas = array [1..N] of integer;
Var
   A , B : TMas;
   i , j : byte;
   Sr : real;
Begin
clrscr;
Sr:=0;
writeln('Исходная матрица');
Randomize;
for i:=1 to N do
   begin   
       A[i]:= random (10)-5;
       Sr:= Sr + A[i];
       write(A[i]:4);
   end;
Sr := Sr / N ; {Среднее арифметическое}
writeln;
writeln('Среднее арифметическое равно ', Sr:4 :2 );
writeln;
writeln('Матрица требуемая');
j:=1;
For i:=1 to N do
 if A[i] < Sr then
    begin      
       B[j]:=A[i];
       textcolor(blue);
       write(B[j]:4);
       inc(j);
    end;
For i:=1 to N do
   if A[i] > Sr then
     begin 
        B[j]:=A[i];
        textcolor(red);
        write( B[j] : 4);
        inc(j); 
     end;
readln;
end.

@Pan_Кust 0 / 1 / 0 Регистрация: 14.05.2010 Сообщений: 43
		1
	Преобразовать массив по правилу 31.05.2010, 18:59. Показов 915. Ответов 1 Метки нет (Все метки) Заполнить одномерный массив из N элементов случайными целыми числами. Преобразовать его в массив, в первой части которого будут элементы меньше среднего арифметического, а во второй части – элементы больше среднего арифметического. Первую часть подкрасить синим цветом, вторую – красным. 0

	31.05.2010, 23:07

Преобразовать массив по правилу

Решение