Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 84 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

n: Integer);
Var j: Integer;
Begin {1}
rmax: = x [1]; n: = 1;
For j: = 2 To L Do
If x [j] > rmax Then
Begin {2}
rmax: = x [j]; n: = j;
End; {2}
End; {1}
{Исполнимая часть головной программы}
Begin {3}
ClrScr;
Write ('Введите размер массивов:');
ReadLn (k);
TextColor (Yellow);
Randomize;
{Заполнение массива
а с помощью датчика случайных
чисел}
For i: = 1 To k Do
Begin {4}
a [i]: = Random (10);
Write ('a[', i, '] = ', a [i]: 4: 2);
End; {4}
{Обращение к процедуре Max1 для поиска максимально-
го элемента и его номера в массиве
а}
Max1 (a, k, max, nmax);
TextColor (Red);
WriteLn ('max =', max: 4: 2, 'nmax =', nmax: 4);
WriteLn (' ');
TextColor (Yellow);
{Заполнение массива
b с помощью датчика случайных
чисел}
For i:= 1 To k Do
Begin {5}
b [i]: = Random (100);
Write ('b [', i, '] = ', b [i]: 4: 2);
84
n: Integer);
     Var j: Integer;
     Begin {1}
     rmax: = x [1]; n: = 1;
     For j: = 2 To L Do
     If x [j] > rmax Then
     Begin {2}
     rmax: = x [j]; n: = j;
     End; {2}
     End; {1}
     {Исполнимая часть головной программы}
     Begin {3}
     ClrScr;
     Write ('Введите размер массивов:');
     ReadLn (k);
     TextColor (Yellow);
     Randomize;
     {Заполнение массива а с помощью датчика случайных
чисел}
     For i: = 1 To k Do
     Begin {4}
     a [i]: = Random (10);
     Write ('a[', i, '] = ', a [i]: 4: 2);
     End; {4}
     {Обращение к процедуре Max1 для поиска максимально-
го элемента и его номера в массиве а}
     Max1 (a, k, max, nmax);
     TextColor (Red);
     WriteLn ('max =', max: 4: 2, 'nmax =', nmax: 4);
     WriteLn (' ');
     TextColor (Yellow);
     {Заполнение массива b с помощью датчика случайных
чисел}
     For i:= 1 To k Do
     Begin {5}
     b [i]: = Random (100);
     Write ('b [', i, '] = ', b [i]: 4: 2);
                          84

Страницы