Subj : Задачи для школьников
To   : Alexei Kozlov
From : Oleg V. Kuzmin
Date : Tue Dec 11 2001 08:34 pm

Hello, Alexei!

11 Дек 01, Alexei Kozlov wrote to All:

 AK> Попробуйте решить такие задачки.
Man, it is international echoconference and here you must use English language
only.
 AK> Задача 1) Дан двумерный массив.Требуется создать одномерный массив,
 AK> элементами которого будут произведения элементов каждого столбца.
Something like this (I'm writting it right here, without testing):


var
 Array2d:Array[1..10,1..10] of Byte; // Source matrix
 Array1d:Array[1..10] of Longint; // Destination array

procedure FillArray2d; // Fills source matrix with random values
var
 i,j:Byte;
begin
 Randomize;
 for i:=1 to 10 do for j:=1 to 10 do Array2d[i,j]:=Random(255)+1;
end;

procedure MakeArray1d; // Calculates destination array values
var
 i,j:Byte;
begin
 for i:=1 to 10 do
  begin
   Array1d[i]:=Array2d[i,1];
   for j:=2 to 10 do Array1d[i]:=Array1d[i]*Array2d[i,j];
  end;
end;

begin
 FillArray2d;
 MakeArray1d;
end.


 AK> Задача 2) Дан двумерный массив. Требуется упорядочить массив по
 AK> убыванию его элементов (по строкам).
See example above and try to do it yourself... ;)

WBR, Oleg V. Kuzmin.

─────────────────────────────────────────────────────────────────────[CoolNet]─
.... FM: 106.3 - Record
--- Старый извращенец GoldED+/386 1.1.5-20011130
 * Origin: Это не Ваша машина тормозит, - это Вы тормоз! (2:5030/1420)

.