Дана матрица размерностью 5*5, заполненная случайными числами от 1 до 20. Необходимо написать программу. Требуется: а) определить максимальный элемент среди элементов, расположенных под побочной

диагональю матрицы;

б) составить одномерный массив из произведений каждого столбца матрицы;

в) определить № столбца, где произведение минимально.

Разрабатываемое приложение должно содержать:

1. Ввод исходных данных с датчика случайных чисел

2. Вывод на экран исходного массива

3. Необходимые вычисления

4. Вывод на экран результатов вычислений и результирующего одномерного массива

Язык программирования - PASCAL

USES CRT,Graph;VAR Device,Mode:Integer;    i,x,y,s:Integer;BEGINCLRSCR;       Device:=0;       InitGraph(Device,Mode,'');       s:=100;       x:=320;       y:=240;       for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s-10;               SetColor(White);           end;            for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s+10;               SetColor(White);           end;          Circle(x,y,s);Readln;END.

Паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. Иначе я не знаю.

 

Первый поезд делится на (паровоз+10) и 11 вагонов.

И эту десятку паровоз тянет в тупичек.

Второй поезд проезжает тупичек.

Паровоз первого вытягивает свою десятку на свободный путь

Второй паровоз толкает свой состав так чтоб стать перед тупичком

Второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.

Второй паровоз задом запихивает 11 вагонов в тупичек

Второй паровоз берет свой состав и уезжает

Первый паровоз забирает свои 11 вагонов