Помощь - Поиск - Пользователи - Календарь
Полная версия: Два одномерных массива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Beseech
Заданы 2 одномерных массива x и y по 20 элементов в каждом. Преобразовать массивы по правилу: большее из значений элементов Xi and Yi принять в качестве нового значения элемента Xi, а меньшее - в качестве нового значения элемента Yi. Преобразованные массивы вывести на экран.
Sto
Вроде так:
Uses
Crt;
Const
N = 20;
Var
i, MinX, MinY, MaxX, MaxY, Temp :Integer;
X :Array[1..N] Of Integer;
Y :Array[1..N] Of Integer;

Procedure WriteArray(x : Array Of Integer; Dim :Integer);
Var
i :integer;
Begin
For i :=1 To Dim Do Write(X[i]:2,' ');
WriteLn;
End;

Begin
ClrScr;
Randomize;
WriteLn('Start Array');
For i := 1 To N Do
Begin
X[i] := Random(100);
Y[i] := Random(100);
End;
WriteArray(X, N);
WriteArray(Y, N);
For i := 1 To N Do
Begin
If X[i] < Y[i] Then
Begin
Temp := X[i];
X[i] := Y[i];
Y[i] := Temp;
End;
End;
WriteLn('New Array');
WriteArray(X, N);
WriteArray(Y, N);
ReadKey;
End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.