ksktys
24.04.2022 04:05

С++

В массиве A=( a1, а2, ..., аn) все элементы, равные нулю, поставить сразу после максимального элемента данного массива Элементы массива вводить с клавиатуры. Использовать только один массив

include < iostream >
include < ctime >
include < cstdlib >
include < math.h >
using namespace std;
int main()
{
setlocale(LC_ALL, "Rus");
srand(time(NULL));
int n[8];
cout << "Введите 8 чисел через пробел ";
for (int m = 0; m < 8; m++) {
cin >> n[m];
}
cout << endl;
bool changed;
int m = 0, max=0,y;
do{
changed = false;
for (n[m] >= max; m < 8; m++) {
max = n[m];
if (max > n[m]) {
swap(n[m], max);
}
changed = true;
}
} while (changed);
for (int m = 0; m < 8; m++) {
cout << n[m] << endl;
}
}
что то пытался сделать не получилось

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ДашаШирова
06.09.2021 14:04

#include <iostream>

#include <stdio.h>

using namespace std;

int main()

{

   int sum=0,n,count=1, count_ch=0;

   float result;

   cin >> n;

   if (n<10000)

   {

       while (n != 0)

       {

           if (n % 2 == 0)

           {

               sum += n;

               count_ch++;

           }

           cin >> n;

           count++;

           if (n > 10000 or count > 1000)

           {

               break;

           }

       }

   }

   result = sum/count_ch;

   printf("%.2f",result);

}

0,0(0 оценок)
Ответ:
dragons55u
04.01.2022 15:49
//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота