Дан одномерный массив, найти все элементы кратные 3 и 5 сколько их что не так пишу? Var A:array[1..15]of integer;
i,n:integer;
begin
writeln('введите количество элементов');
readln(n);
readln(a[i]);
for i := 1 to n do
if(а[i] mod 3) and (а[i] mod 5)
then
writeln(mas[i]);

end.

ТаняСажнева486    2   02.12.2020 23:22    0