Даны два набора чисел (5,6,1,2,3) и (5,8,6,0,3) написать программу , которая подсчитывает количесво чисел, которые в обоих наборах, и записывает на их место нули.решение с объяснениями пож)

154

353

Посмотреть ответы 3

Ответы на вопрос:

respons

Информатика

4,7(72 оценок)

uses crt; const mn1: array[1..5] of byte =(5,6,1,2,3); {объявляем наши наборы}const mn2: array[1..5] of byte =(5,8,6,0,3); {объявляем наши наборы} var i,c,n: integer; begin clrscr; write('набор1 до обработки: '); for i: =1 to 5 do write(mn1[i]: 3); {выводим на экран набор 1} writeln; writeln; write(' набор2 до обработки: : '); for i: =1 to 5 do write(mn2[i]: 3); {выводим на экран набор 2} writeln; writeln; n: =1; c: =0; while (n< =5) do {в цикле сравниваем n-й элемент набора1 с} begin {каждым элемент набора2 } for i: =1 to 5 do begin if (mn1[n]=mn2[i]) then begin c: =c+1; {если нашли совпадение до увеличиваем кол-во пар чисел} mn1[n]: =0; {и записываем на их место нули} mn2[i]: =0;

break; {переходим к след элементу набора1} end; end;

inc(n); end;

{выводим результаты обработки}

write('количество пар чисел: ',c);

writeln; write(' набор1 после обработки : '); for i: =1 to 5 do write(mn1[i]: 3); writeln; writeln; write(' набор2 после обработки : '); for i: =1 to 5 do write(mn2[i]: 3); readkey; {пауза до нажатия на любую клавишу} end.