После публикации исходника Поиск минимального элемента в массиве и его индекса на Паскаль, публикую новое решение задачи на паскаль - Запись четных элементов массива в новый массив и вывод их на экран. Для определения чётности элементов в одномерном массиве использовался цикл FOR. В программе есть пояснительные комментарии, открыть исходник можно с помощью программ Паскаль ABC.Net, Паскаль ABC или другими программами с поддержкой формата .pas. Скачать исходник или просмотреть исходный код программы Паскаль, Вы можете ниже.
Исходный код программы на Pascal:
const //Описание констант
Sz = 100;
var //Описание переменных
a,b: array [1..Sz] of integer;
aN: integer; // Количество элементов в массиве a
bN: integer; // Количество элементов в массиве b
begin //Начало программы
aN := 20;
for var i:=1 to aN do //Заполнение и вывод массива 1
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to aN do
write(a[i],' ');
writeln;
bN := 0;
for var i:=1 to aN do //Поиск чётных эл-ов и запись их в другой массив
if a[i] mod 2 = 0 then
begin
bN += 1;
b[bN] := a[i];
end;
writeln('Четные элементы массива: '); //Вывод чётных эл-ов (второго массива)
for var i:=1 to bN do
write(b[i],' ');
end. //Конец программыСкачать исходник: chnmas.pas
Скачать бесплатно Паскаль ABC.Net, вы можете по этой ссылке.