В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
адрдрюе
адрдрюе
16.11.2022 18:53 •  Информатика

Приведите примеры из окружающей среды с составным условием.​

Показать ответ
Ответ:
darkbluefox
darkbluefox
26.03.2021 19:26

#include <iostream>
#include <vector>
#include<windows.h>
using namespace std;
char bufRus[256];

char* Rus(const char* text) {

CharToOem(text, bufRus);
return bufRus;
}

int main()
{
vector<int> m;//объявили динамический массив
int n,count,sum;
count=sum=0;
cout<<Rus("Введите количество элементов массива:");

cin>>n;
for(int i=0;i<n;i++)
{ cout<<"m["<<i+1<<"]";
int temp;
cin>>temp;
if (temp>7){count++;sum+=temp;}
m.push_back(temp);
}
cout<<Rus("Количество элементов: ")<<count<<endl;
cout<<Rus("Сумма элементов: ")<<sum;
cin>>n;
return 0;
}

 

Как видите, всё просто)

0,0(0 оценок)
Ответ:
nastya2742
nastya2742
30.09.2022 19:40

1)

var

a:array[1..50]of real; 

i,n:byte;

Sn:real; 

begin 

 write('Введите количество элементов массива: ');readln(n);

for i:=1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr; 

writeln('Исходный массив:'); 

/* Вывод в строчку через запятую*/

for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');

/*Простой вывод в столбик*/

for i:=1 to n do writeln(a[i]:5:3);

/*Сумма элементов, стоящих на четных местах*/ 

Sn:=0;

while i<=n do

begin

  if odd(i)=false then Sn:=Sn+a[i];

  i:=i+1;

end; 

/*Вывод ответа*/

writeln('Сумма элементов, стоящих на четных местах: ',Sn:5:3);

end. 

 

2)

var

a:array[1..50]of real;

i:byte; 

begin

 write('Введите количество элементов массива: ');readln(n);

for i:=1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr; 

writeln('Исходный массив:'); 

/* Вывод в строчку через запятую*/

for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');

/*количество элементов кратных 3*/

kol:=0; 

for i:=1 to n do

if a[i] mod 3 =0 then kol:=kol+1; 

/*Вывод ответа*/

writeln('Количество элементов массива, кратных трем: ',kol);

end. 

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