Выделить в отдельный одномерный массив элементы, кратные 5 - Free Pascal
Формулировка задачи:
Дан целочисленный массив a(n,n),n=10. Выделить в отдельный одномерный массив элементы, кратные 5. Найти среди них максимальный.
Решение задачи: «Выделить в отдельный одномерный массив элементы, кратные 5»
textual
Листинг программы
var
arr: array[0..10, 0..10] of integer;
arr2: array[0..100] of integer;
i, j, count: integer;
begin
count:=1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
write('[', i, ',',j, '] = ');
readln(arr[i, j]);
if (arr[i, j] mod 5 = 0) then
begin
arr2[count]:=arr[i, j];
Inc(count);
end;
end;
end;
for i := 1 to count-1 do writeln(arr2[i]);
readln;
end.
Объяснение кода листинга программы
- Объявлены следующие переменные:
- arr: array[0..10, 0..10] of integer;
- arr2: array[0..100] of integer;
- i, j, count: integer;
- Переменная count инициализируется значением 1.
- Два вложенных цикла for, в которых:
- Записывается в консоль индексы текущего элемента массива arr.
- Считывается значение текущего элемента массива arr.
- Проверяется, делится ли значение текущего элемента массива arr на 5 без остатка.
- Если условие выполняется, то значение текущего элемента массива arr записывается в массив arr2, а переменная count увеличивается на 1.
- После окончания циклов, выводится на консоль каждый элемент массива arr2, начиная с первого и до count-1.
- Программа ожидает ввода данных с клавиатуры с помощью функции readln.