Составьте код для ввода элементов массива. 1. readln(n);
2. writeln(n);
3. read(a[i]);
4. write(a[i]:2);
5. for i := 1 to n do
6. for i := 1 downto n do
7. readln;
8. writeln;

2, 1, 6, 7, 8

1, 5, 3

2, 5, 4

1, 3, 5, 7

 # Код на ruby 2.2.3p173
a1, a2 = [], []
for i in 100..999
    t = i
    s = 0
    while t>0
        s += t % 10
        t = t / 10
    end

    a1<<i if i%7==0 and s%7==0
    a2<<i if i%47==43
end

p a1
p a2

a3 = []
sum = 0

for i in 31..99
    if i%3==0 and (i%10==2 or i%10==4 or i%10==8)
        a3<<i
        sum += i
    end
end

p sum
p a3

Вывод
[133, 266, 322, 329, 392, 399, 455, 511, 518, 581, 588, 644, 700, 707, 770, 777, 833, 966]
[137, 184, 231, 278, 325, 372, 419, 466, 513, 560, 607, 654, 701, 748, 795, 842, 889, 936, 983]
378
[42, 48, 54, 72, 78, 84]

 # Код на ruby 2.2.3p173
a1, a2 = [], []
for i in 100..999
    t = i
    s = 0
    while t>0
        s += t % 10
        t = t / 10
    end

    a1<<i if i%7==0 and s%7==0
    a2<<i if i%47==43
end

p a1
p a2

a3 = []
sum = 0

for i in 31..99
    if i%3==0 and (i%10==2 or i%10==4 or i%10==8)
        a3<<i
        sum += i
    end
end

p sum
p a3

Вывод
[133, 266, 322, 329, 392, 399, 455, 511, 518, 581, 588, 644, 700, 707, 770, 777, 833, 966]
[137, 184, 231, 278, 325, 372, 419, 466, 513, 560, 607, 654, 701, 748, 795, 842, 889, 936, 983]
378
[42, 48, 54, 72, 78, 84]