Составьте программу,которая запрашивает значения элементов одномерного числового массива...

Question

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

Найти сумму элементов, кратных 3;

количество нулевых элементов;

и произведение элементов, стоящих на нечётных местах.

Answer 1

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.

Answer 2

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.