Определить разность R = S1 - S2, где S1 – сумма индексов максимальных элементов массива; S2 – сумма индексов минимальных элементов массива ABCPascal

Ответ:

Min а если не против можешь коронку дать? Писал я долго)

Объяснение:

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];

min > S[i] then begin

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

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

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

',q);

writeln;writeln('иниaльный ', min, ' ero

индекс ',k);

end.