Question

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.

Answer 1

Отредактированный код представлен в файле