Сайт фан клуба ИГХТУ

 

Методичка 706 ИГХТУ

Программа

program zadacha_3;

uses crt;

const

  m=500; {максимальное значение n};

var

  a: array [1..m] of integer; {массив, состоящий из членов последовательности};

  n: word; {число членов последовательности}

  kol: word; {количество нечетных и отрицательных членов последовательности}

  sum: integer; {сумма членов последовательности, кратных 5}

  i: word; {счетчик цикла}

begin

  writeln (‘Введите исходные данные:’);

  write (‘n=’); readln (n);

  for i:=1 to n do

    begin

      write (‘a[‘,i:3,’]=’); readln (a[i]);

     end;

  kol:=0; sum:=0;

  for i:=1 to n do

    begin

      if odd(a[i]) and (a[i]<0) then kol:= kol +1;

      if a[i] mod 5=0 then sum:= sum +a[i];

    end;

  writeln (‘результаты расчета:’);

  writeln (‘количество нечетных и отрицательных ’);

  writeln (‘членов последовательности равно’,kol:4);

  writeln (‘сумма членов последовательности, кратных 5, равна’, sum:4);’);

  readln;

end.

Пример расчета

 

Введите исходные данные

n=10

a[  1]=1

a[  2]=5

a[  3]=-3

a[  4]=-4

a[  5]=0

a[  6]=6

a[  7]=-25

a[  8]=-100

a[  9]=9

a[ 10]=-7

 

Результаты расчета:

Количество нечетных и отрицательных членов последовательности

равно    3

Сумма членов последовательности, кратных 5, равна –120

 



страницы:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
 
 
 
 
 
 

Warning: in_array() expects parameter 2 to be array, null given in /home/p198609/www/bestlogistics.ru/2f41c03c6df35aa46f8d897a4eed7d02/sape.php on line 192