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

Кому не сложно. сделайте на языке c++ 1.)в массиве все четные элементы увеличить в 2 раза. пример: из массива a[5]: 1 3 4 5 6 должен получиться массив 1 3 8 5 12. 2.)из массива удалить первый из четных элементов. пример: из массива a[5]: 1 3 4 5 6 должен получиться массив a[4]: 1 3 5 6. 3.)из массива удалить самую длинную цепочку четных элементов. пример: из массива a[8]: 4 1 4 2 1 2 4 6 должен получиться массив a[5]: 4 1 4 2 1. (самая длинная цепочка четных чисел включает элементы с 6 по 8: 2 4 6).

👇
Ответ:
ниёля1
ниёля1
09.03.2020
1)
#include <iostream>
using namespace std;
int A[1000];
int main()
{
int n;
cin >> n;
for (int i = 1; i <= n; i++)
{
 cin >> A[i];
 if (A[i] % 2 == 0)
 {
  A[i] *= 2;
 }
 cout << A[i] << " ";
}
return 0;
}
Остальные решения прикрепил файлами
4,5(60 оценок)
Открыть все ответы
Ответ:
PolinaCat29
PolinaCat29
09.03.2020
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
4,7(68 оценок)
Ответ:
1. Короткий современный вариант ("один оператор")

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Writeln('Sпол.неч = ',ArrRandom(50,-10,20).Println
    .Where((x,i)->(x>0) and (i.IsEven)).Sum)
end.

Тестовое решение
15 16 0 17 20 7 -3 -4 9 9 -3 -8 14 10 10 11 7 18 -8 8 0 15 1 4 11 1 9 -10 -7 -7 12 17 8 13 7 15 1 13 12 11 4 -5 -3 -6 -5 -10 -9 -8 8 -8
Sпол.неч = 148

2. Длинный "школьный" вариант ("почувствуйте разницу")

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
  a:array[1..50] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 50 do begin
    a[i]:=Random(31)-10; Write(a[i],' ');
    if (a[i]>0) and Odd(i) then s:=s+a[i]
    end;
  Writeln;
  Writeln('Sпол.неч = ',s)
end.

Тестовое решение
4 14 4 7 9 -4 3 6 20 -10 3 -3 15 12 9 0 3 12 13 -1 9 -2 -2 16 18 -2 5 9 17 -3 4 -6 10 10 -5 10 8 13 12 15 13 1 12 1 7 6 9 2 -9 -6
Sпол.неч = 207
4,7(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ