Из массива А в массив В переписать все элементы, оканчивающиеся на 3,7 или 9 - Free Pascal

Узнай цену своей работы

Формулировка задачи:

1.Из массива А в массив В переписать все элементы, оканчивающиеся на 3, 7 или 9. 2.Дан массив. Найти max и min.

Решение задачи: «Из массива А в массив В переписать все элементы, оканчивающиеся на 3,7 или 9»

textual
Листинг программы
var
    a, b: Array Of ShortInt;
    i: Word;
begin
    Randomize();
    repeat
        Write('Input array length (>0): '); ReadLn(i);
    until (i > 0);
    SetLength(a, i); SetLength(b, 0);
    Write('Original array:');
    for i := 0 to Length(a) - 1 do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
        if ((Abs(a[i]) mod 10) in [3, 7, 9])
        then
        begin
            SetLength(b, Length(b) + 1);
            b[Length(b) - 1] := a[i];
        end;
    end;
    WriteLn; Write('Filtered array:');
    if (Length(b) > 0)
    then
        for i := 0 to Length(b) - 1 do
            Write(b[i]:4)
    else
        Write(' ERROR! Empty array!');
end.

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

  1. Объявлены две переменные типа Array Of ShortInt - a и b, а также переменная i типа Word.
  2. Выполняется инициализация генератора случайных чисел.
  3. В цикле repeat происходит запрос на ввод длины исходного массива и проверка корректности введенного значения (больше 0).
  4. Массив a инициализируется случайными числами от -99 до 99, которые выводятся на экран.
  5. В цикле for проверяется каждый элемент массива a. Если остаток от деления его абсолютного значения на 10 равен 3, 7 или 9, то элемент копируется в массив b.
  6. После окончания цикла выводится информация о отфильтрованном массиве.
  7. Если массив b пустой, выводится сообщение об ошибке.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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