1. сформировать внутреннюю и внешнюю файл-функцию. //задан одномерный массив,вывести на печать все элементы, которые равны первому. const n=5; var a: array[1..n] of integer; i: integer; begin // формируем и выводим массив writeln(' массив: '); for i: =1 to n do begin a[i]: =random(10); write(a[i]: 2); end; writeln(); // находим элементы, которые равны первому. writeln(' первому элементу равны: '); for i: =1 to n do begin if (a[1]=a[i]) then write(a[i]: 2) end; end.
