Вычислить сумму и разность двух одномерных массивов содержащих 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 beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;writeln('2 массив');for i:=1 to 20 do beginM[i]:= random(100)-50;write(M[i]:4);end;writeln;writeln('массив Суммы');for i:=1 to 20 do beginS[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 beginR[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.