Обнуление элементов массива Y, встречающихся в массиве X.

Program Pro_36 (Input, Output);    

Объявление имени программы

Var         

Блок объявления глобальных переменных

X, Y        : Array [1..20] Of Integer;  

Переменные X, Y - массивы целых чисел из макс. 20 элементов

N1, N2    : Integer;              

Количество элементов в массивах X и Y соответственно

i, j            : Integer;              

Переменные i, j - параметры циклов

Begin    

Начало тела программы

WriteLn ('PASCAL: Обнуление элементов массива Y, встречающихся в массиве X.');

Формулировка цели алгоритма

Write ('Введите размерность массива X: ');               

Запрос ввода N1 - размерности массива X

ReadLn (N1);       

Ввод N1

WriteLn ('Введите элементы массива X:'); 

Запрос поэлементного ввода элементов массива X

For i := 1 To N1 Do            

Цикл для i от 1 до N1, где i - номер очередного элемента

Begin    

Начало тела цикла

Write ('X[', i, '] = ');             

Вывод удобной подсказки

ReadLn (X [i] );   

Ввод очередного элемента массива X

End;      

Конец тела цикла

Write ('Введите размерность массива Y: ');

Запрос ввода N2 - размерности массива Y

ReadLn (N2);       

Ввод N2

WriteLn ('Введите элементы массива Y:');  

Запрос поэлементного ввода элементов массива Y

For i := 1 To N2 Do            

Цикл для i от 1 до N2, где i - номер очередного элемента

Begin    

Начало тела цикла

Write ('Y[', i, '] = ');              

Вывод удобной подсказки

ReadLn (Y [i] );   

Ввод очередного элемента массива Y

End;      

Конец тела цикла

For i := 1 To N1 Do            

Цикл для i от 1 до N1, где i - номер очередного элемента массива X

For j := 1 To N2 Do            

Цикл для j от 1 до N1, где j - номер очередного элемента массива Y

If X [i] = Y [j] Then Y [j] := 0;           

Если элемент массива Y совпадает с текущим элементом X, то обнуляем его

WriteLn ('Полученный массив Y:');             

Сообщение пользователю о выводе полученного массива Y

For i := 1 To N2 Do            

Цикл для i от 1 до N2, где i-номер очередного элемента выводимого массива

Write (' ', Y [i] );   

Вывод в строку очередного элемента массива Y

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.