М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alan4ik1324
alan4ik1324
12.09.2022 03:39 •  Информатика

с тестами по информатиками

👇
Ответ:
sstadina9
sstadina9
12.09.2022

b2 алгоритм не благодарны

4,7(100 оценок)
Открыть все ответы
Ответ:
MissEvaStar
MissEvaStar
12.09.2022
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
  var s:=a.Where((x,i)->i.IsEven);
  Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
  Writeln('Произведение элементов с нечетными номерами: ',
      s.Aggregate(BigInteger(1),(x,y)->x*y));
end.

Пример
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936
4,7(1 оценок)
Ответ:
Joshler0canon
Joshler0canon
12.09.2022
#include <iostream>
using namespace std;
int main(){ 
int N,i,k,sum;    
sum=0;   
cin>>N; 
for(i=0;i<N;i++)
{   
cin>>k; 
  sum += k; 
}
cout<<sum;
return 0;}
2.
#include <iostream>
using namespace std;
int main(){   
 int N,i,k,number;   
 k=0;   
cin>>N;   
 for(i=0;i<N;i++){   
    cin>>number;     
 if(number == 0){           
 k+=1;     
  }   
 }   
 cout<<k;   
return 0;
}
3.#include <iostream>
using namespace std;
int main(){ 
  int N,i,number;   
int poz,neg,zero;   
poz = 0;    neg = 0;    zero = 0; 
   cin>>N; 
  for(i=0;i<N;i++){     
 cin>>number;     
 if(number == 0){           
 zero+=1;       
}else if(number > 0){     
      poz+=1;   
    }else{     
 neg+=1;     
 }   
 }   
cout<<"Poz: "<<poz<<endl;    cout<<"Neg: "<<neg<<endl;    cout<<"Zero: "<<zero<<endl;   
return 0;
}
4,6(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ