Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода ** экран...

Question

Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран элементов массива кратные 3.

Comments

язык программирования?

---

да

---

какой язык программирования? Паскаль? C++?

---

надо составить программу в паскале.

---

тестируйте

---

не поняла.

---

спс.

Answer 1

Program p1;
var i:integer;
    a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
    writeln('Введите ',i,' число: ');
    read(a[i]);
end;
for i:=1 to 10 do
   if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
end.