Составьте программу,которая запрашивает значения элементов одномерного числового массива А, состоящего из10 элементов, формирует и выводит на экран в строку данный массив. Найти сумму элементов, кратных 3; количество нулевых эл...

var  z,i,g,s:longint a:array[0..100]of longint; begin  z:=1;  for i:=1 to 10 do begin  read(a[i]);  if a[i] mod 3=0 then inc(s,a[i]);  if a[i]=0 then inc(g);  if i mod 2>0 then z:=z*a[i];  write(a[i],' '); end; writeln; writeln(s); writeln(g); writeln(z); end.

Program Sarumyana; const n=10; var a:array[1..n] of integer; tri, nol, odd, i: integer;   begin   writeln('*** alphaues is thinking... ***');   tri:=0;   nol:=0;   odd:=1;   for i:=1 to n do   begin     write('Введите ',i,'-e число ');     readln(a[i]);     if a[i] mod 3 = 0 then tri := tri + a[i];     if a[i] = 0 then nol := nol + 1;     if i mod 2 = 1 then odd := odd * a[i]   end;   write('Строка чисел: ');   for i:=1 to n do   begin     write(a[i],' ');   end;    writeln();    writeln('Сумма элементов, кратных 3, равна ',tri);    writeln('Количество нулевых элементов = ',nol);    writeln('Произведение элементов, стоящих на нечётных местах, = ',odd); end.