Регистрация
davidpizhuk13456789
01.02.2021 04:32
Информатика
Есть ответ 👍

, )​
я изменила цену вопроса

265
315
Посмотреть ответы 1

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

SEreNAaaAA
SEreNAaaAA
4,5(36 оценок)

programm p;

var

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

i,n: integer;

s: integer;

begin

readln n;

for i: =1 to n do

readln(a[i]);

 

s: =0;

for i: =1 to n do

begin

if (a[i]> 5)and(a[i]< 81)and(a[i]/7=int a[i]/7) then

s: =s+a[i];

if a[i]= 0 then break;

end;

writeln(s);

end.

 

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