Паскаль, массивы

[bwitcher]

Всем привет! Дамы и господа, требуется ваша помощь в решении одной задачки...
Создать двумерный массив случайных чисел А[1..10,1..10]. В каждой строке этого массива найти наибольший элемент и записать его в линейный массив В[1..10]. Вывести оба массива..
Не решите?

[Stilet]

Ну почему же? Решим. Смотри:

Создать двумерный массив случайных чисел А[1..10,1..10].

For i:=1 to 10 do For j:=1 to 10 do a[i,j]:=random(100);

Где Счетчики циклов Integer да и сам массив обьявить как Array[1..10,1..10] of Integer

В каждой строке этого массива найти наибольший элемент и записать его в линейный массив В[1..10].

 For i:=1 to 10 do   For j:=1 to 10 do     if b[i]<a[i,j] then b[i]:=a[i];

Массив В тоже объяви как Array[1..10] of Integer;
Ну а вывод так же в циклах. через Write(a[i,j]) и Write(b[i]);