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

Программы к этим задачам нужно написать на Pascal ABC.Заранее спасибо)

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

2)дан массив из 10 чисел.Подсчитайте в этом массиве количество положительных и отрицательных значений.

 

  • 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.

                                  

     

Ссылка на основную публикацию
2018