Дан целочисленный массив из 70 элементов.Элементы массива могут принимать целые значения...

Question

Дан целочисленный массив из 70 элементов.Элементы массива могут принимать целые значения от 0 до 100.Составить программу ,позволяющую найти и вывести элементы массива, которые не кратны 9 и находятся в диапазоне[30,70].Гарантируется,что в исходном массиве есть хотя бы один такой элемент.

Answer 1

Const
    auto = true;
    n = 70;

var
    a: array[1..n] of integer;
    i: integer;

begin
    for i := 1 to n do
    begin
        if auto then
            a[i] := random(100)
        else readln(a[i]);
       
        if (a[i] <= 70) and (a[i] >= 30) and (a[i] mod 9 > 0) then
            writeln(a[i]);
    end;
end.