Массив.

[Paul Oakenfold]

Составьте программу формирования и вывода на экран одномерного массива, состоящего из максимальных элементов столбцов двумерного массива, заданного с помощью датчика случайных чисел.

[Stilet]

Ну смотри, максимальные элементы примерно так собираем:

var a:array[1..10,1..10] of real;
      max:array[1..10] of real; i,k:byte;
begin
 for i:=1 to 10 do 
   for k:=1 to 10 do begin a[i,k]:=random(100); 
   If a[i,k]>max[i] then max[i]:=a[i,k];
 end;
end.

Далее просто вывести массив max на экран
Усек смысл?

[Paul Oakenfold]

неа... вообще запутался... не мог ли бы Вы написать полностью код?

[Stilet]

Я щаз домой ухожу, мож завтра еси не забуду покажу.

[Paul Oakenfold]

хорошо, спс

[Samopal]

Держи:

program mass;
uses crt;
var a:array[1..10,1..10] of real;
      max:array[1..10] of real; i,k:byte;
begin
clrscr;
 for i:=1 to 10 do 
   for k:=1 to 10 do begin a[i,k]:=random(100); 
   If a[i,k]>max[i] then max[i]:=a[i,k];
 end;
 for i:=1 to 10 do
 writeln (max[i]);
 readln;
end.

тока в этой строке:

writeln (max[i]);

можешь через двоеточие поставить кол-во разрядов чисел...
например попробуй так:

writeln (max[i]:4:4);

смысл поймёшь...

[Paul Oakenfold]

program mass;
uses crt;
var a:array[1..10,1..10] of real;
      max:array[1..10] of real; i,k:byte;
begin
clrscr;
 for i:=1 to 10 do 
   for k:=1 to 10 do begin a[i,k]:=random(100); 
   If a[i,k]>max[i] then max[i]:=a[i,k];
 end;
 for i:=1 to 10 do
 writeln (max[i]);
 readln;
end.

Народ Можешь подписать комментарии пожалуйста? и "k" в этой программе что такое?