Одномерный массив

[Nastya555]

Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an кратных 3 и не кратных 5.

Вот так я составила программу, а она выдает количество равно 0, не знаю где ошибка. Помогите, пожалуйста

program massiv;
var x,i:integer;
A: array [1..20] of integer;
Begin
х:=0;
for i:=1 to 20 do begin
readln (A[i]);
if (A[1] mod 3 = 0) and (A[1] mod 5 <> 0) then
x:=x+1;
end;
writeln(‘kolichestvo=’, x);
end.

[ROMA2PVT]

program massiv;
var
kol,i,n:integer;
A:array [1..20] of integer;
Begin
kol:=0;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
A[i]:=random(20)-2;
write(a[i]:2,' ');
if (A[i] mod 3=0) and (A[i] mod 5 <> 0) then
inc(kol);
end;
writeln;
writeln('Количество:=',kol);
end.

[Nastya555]

Спасибо))))

[ROMA2PVT]

да не за что.

[Nastya555]

как это не за что, очень даже есть, сама бы я не додумалась.

[Nastya555]

Дана действительная матрица размера mхn. Определить числа b1,…,bm равные произведениям элементов строк.

А вот с такими задачками я раньше как-то не сталкивалась, если возможно, то помогите))))

[ROMA2PVT]

Uses
   CRT;
var
    a:array[1..100,1..100] of real;
    n,m,i,j:byte;
    pr:real;
    b:array[1..100] of real;
begin
Clrscr;
randomize;
   write('Введите количество строк: ');
   readln(n);
   write('Введите количество столбцов: ');
   readln(m);
   writeln('Исходный массив: ');
   for i:=1 to n do
   begin
      for j:=1 to m do
      begin
        a[i,j]:=random(5)/3;
        write(a[i,j]:7:2);
      end;
      writeln;
   end;
   for i:=1 to n do
   begin
    b[i]:=1;
    for j:=1 to m do
    b[i]:=b[i]*a[i,j];
   end;
   writeln;
   writeln('Массив произведений элементов каждой строки: ');
   for i:=1 to n do
   begin
   write(b[i]:1:3,' ');
   end;
   writeln;
   writeln('Элементы равные произведению: ');
   for i:=1 to n do
   begin
      for j:=1 to m do
     if a[i,j]=b[i] then
     begin
      writeln('El[',i,';',j,']:=',a[i,j]:1:3,' ');
       end;
       end;
       writeln;
   readkey;
end.

Если правильно понял то вот.

[Nastya555]

Большое спасибо)))))

[ROMA2PVT]

не за что.