Паскаль

[Муишка]

Паскаль

Помогите решить задачи: 1. Выбрать наибольший элемент матрицы А(5,7). Разделить на него элементы первой и третьей строк. Полученную матрицу вывести.
2. Переписать массив х(10) в массив у(10) таким образом, чтобы сначала стояли элементы с четным индексом, а потом - с нечетным. На языке Турбо Паскаль

 

[Vladimir_S]

Помогите решить задачи: 1. Выбрать наибольший элемент матрицы А(5,7). Разделить на него элементы первой и третьей строк. Полученную матрицу вывести.
2. Переписать массив х(10) в массив у(10) таким образом, чтобы сначала стояли элементы с четным индексом, а потом - с нечетным. На языке Турбо Паскаль

1.
VAR
A:ARRAY[1..5,1..7] of REAL;
i,j:INTEGER;
Max:REAL;

BEGIN
Randomize;
Max:=-100000;
FOR i:=1 TO 5 DO
FOR j:=1 TO 7 DO
BEGIN
A[i,j]:=Random*18-9;
IF A[i,j]>Max THEN Max:=A[i,j];
END;
FOR i:=1 TO 5 DO
BEGIN
FOR j:=1 TO 7 DO Write(A[i,j]:6:2);
Writeln;
END;
Writeln;
Writeln('Max= ', Max:6:2);
Writeln;
FOR i:=1 TO 5 DO
BEGIN
FOR j:=1 TO 7 DO
IF (i=1) OR (i=3) THEN Write(A[i,j]/Max:6:2) ELSE Write(A[i,j]:6:2);
Writeln;
END;
Readln;
END.

2.
VAR
X,Y:ARRAY[1..10] of BYTE;
i:INTEGER;

BEGIN
Randomize;
FOR i:=1 TO 10 DO
BEGIN
X:=Random(90);
Write(X:3);
END;
Writeln;
FOR i:=1 TO 5 DO Y:=X[2*i];
FOR i:=6 TO 10 DO Y:=X[(i-5)*2-1];
FOR i:=1 TO 10 DO Write(Y:3);
Writeln;
Readln;
END.

 

[Муишка]

Спасибо огромное. Все таки неправильные моменты оказывается были у меня. Помогли;-)