Leorn3
12.04.2023 06:03

РЕШИТЕ на Паскале, заранее

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
diankapazyukа
15.10.2020 00:39

const  

 n=30;

var

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

 i,j,s:integer;

begin

 for i:=1 to n do

   readln(a[i]);

 j:=0; s:=0;

 for i:=1 to n do

   if (a[i]>99) and (a[i]<1000)  

     and (a[i] mod 2 =1) then

       begin

         inc(j);

         s:=s+a[i];

       end;

 if s<>0 then

   writeln(s/j)

     else  

       writeln('Таких нет');

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота