Вычислить сумму и разность двух одномерных массивов содержащих 20 элементов. В массиве суммы найти максимальный элемент и его индекс. В массиве разности найти минимальный элемент и его индекс. Исходные массивы ввести при помощи случайных чисел. На экран вывести исходные массивы, массив суммы, массив разности и индексы максимального и минимального элементов.

Var N, M, R, S:Array[1 ... 20] of integer; i, min, q, k, max:integer;

begin

Randomize;

max:=-200; min:=200;

writeln ('1 массив') ;

for i:=1 to 20 do begin

N[i]: = random (100) - 50; write (N[i]:4) ; end; writeln;

writeln ('2 массив') ;

for i:=1 to 20 do begin

M[i]: = random (100) - 50;

write (M[i]:4) ; end; writeln;

writeln ('массив Суммы') ;

for i:=1 to 20 do begin

S[i]: = N[i]+M[i];

if max < S[i] then begin

max:=S[i]; q:=i; end;

write (s[i]:4) ; end;

writeln;

writeln ('массив Разности') ;

for i:=1 to 20 do begin

R[i]: = N[i]-M[i];

if min > S[i] then begin

min : = S[i]; k:=i; end;

write (R[i]:4) ; end; writeln;

writeln ('максимальный ', max, ' его индекс ', q) ;

writeln; writeln ('минимальный ', min, ' его индекс ', k) ;

end.