Дано натуральное число n и последовательность а1, натуральных чисел, заданных с клавиатуры. определить количество и сумму элементов этой последовательности, имеющих чётные порядковые номера и являющихся нечётными числами. решить для n=10 (написать на паскале

const

  n=10;

var

  a: array [1..n] of integer;

  i,k,sum: integer;

begin

  k: =0;

  sum: =0;

  for i: =1 to n do 

    begin

        write ('a[',i,'] = ');

        readln(a[i]);

        if (i mod 2 = 0) and (a[i] mod 2 < > 0) then

          begin

            k: =k+1;

            sum: =sum+a[i];

          end;  

      end;  

  writeln ('summa: ',sum);

  writeln ('kol-vo: ',k);

  readln;

end.

program a;

uses crt;

var i,n, sum,qty: integer;

a: array [1..10] of integer;

 

begin

clrscr;

n: =10;

sum: =0;

qty: =0;

for i: =1 to n do begin

readln ('a[',i.']=',a[i]);

end;

for i: =1 to n do begin

if i mod 2 = 0 then

if a[i] mod 2 < > 0 then

sum: =sum+a[i];

inc(qty);

endif;

endif;

end;

writeln('сумма составила ', sum);

writeln('количество составило ',qty);

readkey;

end.

Не знаю, какой язык нужен, так что пусть будет паскаль. в обоих случаях предполагается, что есть заполненный массив a с индексами от 1 до n. i - целочисленная цикловая  переменная. k - целочисленная переменная, куда записывается ответ 4) k : = 0; for i : = 1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then begin write(a[i],' '); {вывод на экран - т.к. требуется найти элементы} k : = k + 1 {элемент учитывается в счетчике} end; writeln; write(k) {количество таких элементов} 5) k : = 0; for i : = 1 to n do if (a[i] mod 2 = 0) and (i mod 2 = 0) then k : = k + 1; write(k)

Pascal abc. var        i,n,sum,a: integer; begin          readln(n);           for i: =1 to n do          begin                  readln(a);                   if a< 0 then sum: =sum+sqr(a);           end;           writeln(sum); end.