Программы к этим задачам нужно написать на Pascal ABC.Заранее спасибо) 1)Даны два массива: A[1:2] и B [1:20].Найдите и выведите на экран только те элементы этих массивов,значения которых совпадают.Например если A[2]=B[2]=4,то н...

1) var A: array [1..2] of real;           B: array [1..20] of real;           i:integer;           c:boolean;  begin   c:=false;   readln(a[1],a[2]);   for i:=1 to 20 do begin                            readln(b[i]);                            if (b[i]=a[1]) then begin writeln('A[1]=B[',i,']=',b[i]);c:=true; end;                            if (b[i]=a[2]) then begin writeln('A[2]=B[',i,']=',b[i]);c:=true; end;                            end;   if c=false then writeln('Совпадений не найдено'); end. 2) var a:array[1..10] of real;     npol,notr,i: integer;    begin     npol:=0;     notr:=0;     for i:=1 to 10 do begin                              readln(a[i]);                              if a[i]>0 then npol:=npol+1;                              if a[i]<0 then notr:=notr+1;                              end;    writeln('Количество положительных значений: ',npol,', количество отрицательных значений: ',notr); end.