(Задание1, стр. 52 - РТ). Разберите программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и находит максимальный элемент массива и его индекс. Затем наберите и выполните программу на компьютере.
ProgramP1;
Var A:array[1..10] of integer;
i, k, max:integer;
Begin
For i:=1 to 10 do A[i]:=Random(20)+1;
For i:=1 to 10 do Write(A[i],' ');
Writeln;
max:=a[1]; k:=1;
For i:=2 to 10 do
If A[i] >max Then
begin
max:=a[i]; k:=i;
end;
Writeln ( 'max= ',max);
Writeln ( 'k= ',k);
End.
2. Разберите программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и находит максимальный элемент среди четных элементов массива.
Program P1;
Var A:array[1..10] of integer;
i, max:integer;
Begin
For i:=1 to 10 do A[i]:=Random(20)+1;
For i:=1 to 10 do Write(A[i],' ');
Writeln;
max:=1;
For i:=1 to 10 do
If (A[i] >max) and (A[i] mod 2 =0) Then