Выделить в отдельный одномерный массив элементы, кратные 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.

Объяснение кода листинга программы

  1. Объявлены следующие переменные:
    • arr: array[0..10, 0..10] of integer;
    • arr2: array[0..100] of integer;
    • i, j, count: integer;
  2. Переменная count инициализируется значением 1.
  3. Два вложенных цикла for, в которых:
    • Записывается в консоль индексы текущего элемента массива arr.
    • Считывается значение текущего элемента массива arr.
    • Проверяется, делится ли значение текущего элемента массива arr на 5 без остатка.
    • Если условие выполняется, то значение текущего элемента массива arr записывается в массив arr2, а переменная count увеличивается на 1.
  4. После окончания циклов, выводится на консоль каждый элемент массива arr2, начиная с первого и до count-1.
  5. Программа ожидает ввода данных с клавиатуры с помощью функции readln.

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы