Основы алгоритмизации

Томский межвузовский центр дистанционного образования

Томский государственный университет

систем управления и радиоэлектроники (ТУСУР)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                                г. Томск 2012 г.

                                                                              -  2  -

Даны натуральное число n, целые числа а1, ..., ап. Найти   количество и сумму тех членов данной последовательности, которые делятся на 5 и не делятся на 7.

Алгоритм работы:

Данный алгоритм предназначен для расчета задания контрольной работы вариант 1

Общее описание алгоритма:

Ввод количества элементов N;

Ввод в цикле от 1 до n значения элементов. По окончанию ввода, в цикле от 1 до N, проверяется каждый элемент на остаток от деления на 5 и на 7. Если остаток от деления на 5 равен 0, а остаток на 7 не равен, то сумма увеличивается на значение элемента, количество инкременируется. По окончании цикла вывод суммы элементов и количества на экран.

 

Листинг:

program k1v1_osnalg;

uses crt;

var sum:integer;

var n,i,kol:word;

var p,t,p1,p2:string;

var a: array [1..100] of integer;

begin

                                                          - 3 -

clrscr;

write('Enter kol of number - n:');

readln(n);

 

for i:=1 to n do

begin

  str(i,p1);

  write('a['+p1+']=');

  readln(a[i]);

end;

 

sum:=0;kol:=0;

for i:=1 to n do

begin

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

begin

  sum:=sum+a[i];

  kol:=kol+1;

  str(sum,p);

                                                         - 4 -

{  write(p+' ');}

end;

end;

writeln;

str(kol,t);

str(sum,p2);

write('Elements count: '+t+', element sum = '+p2);

 readkey;

end.

Результаты выполнения программы: