Нахождение номера цифры - Pascal ABC

Формулировка задачи:

Написать программу в которую вводятся два массива (массивы должны быть упорядочены), одним циклом найти одинаковые цифры в массивах и определить на каком месте находятся совпадающие цифры из второго массива в первом массиве. Пример: 918273645 123456789 (первое число второго массива 1=2 находится на 2 месте в первом массиве )

Код к задаче: «Нахождение номера цифры - Pascal ABC»

textual
program proga1; 
uses crt; 
const
    N = 5;
var
    arr1,arr2: array[1..N] of integer;
    
    i,a,k: Byte;
begin
    writeln('Заполните первый массив:');
    for i := 1 to N do
        read(arr1[i]);
 
    writeln('Заполните второй массив:');
    for i := 1 to N do
        read(arr2[i]);
 begin       
        k:=0;
        i:=1;
      while(i<=n)and(k=0) do
     if a[i]=b[1] then k:=i
     else i:=i+1;
     write(k);
 end;   
 end.

6   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ