Из исходного массива, содержащего 10 эл-тов, записать в новый массив только те числа, которые кранты трем. если таковых не окажется вывести сообщение, что таких эл-тов нет.

1
Способ заполнения массива какой должен быть?
в паскале надо

Ответы и объяснения

2014-03-24T08:45:01+04:00
Const n=10;
Var a:array[1..n] of integer;
I,K:integer;
Begin
For I:=1 to n do
Begin
Write('a[',I,']='); Readln(a[I]);
End;
K:=0;
For I:=1 to n do
If (a[I])mod(3)=0 Then K:=K+1;
If K=0 Then Writeln('Таких элементов нет') Else Writeln('K=',K);
Readln;
End.