Регистрация
филик2
24.05.2021 09:29
Информатика
Есть ответ 👍

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

132
245
Посмотреть ответы 3

Ответы на вопрос:

Liliii87644
Liliii87644
4,5(21 оценок)

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.

OMG1234567890
OMG1234567890
4,8(93 оценок)

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.

zhanylganahmet
zhanylganahmet
4,4(72 оценок)

слишком сложно для меня

Популярно: Информатика