Question

Дан Одномерный Целочисленный Массив размером n. Вывести количество чисел кратных 7 и оканчивающихся на один.
Программа - Pascal
Большое Спасибо!

Answer 1

PascalВыделить код

1

2

3

4

5

6

7

8

9

Program Nailya;

var a: array [1..10] of integer;

c, n: integer;

begin

write('элементы массива? ');

for c := 1 to 10 do read(a[c]);

for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n);

write('кратных трем: ', n);

end.

мне нужно в строку

0