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

Перемістить рудого Кота в інше положення на Сцені та виконайте програму повторно. Запишіть у зошит , що змінилося в результаті другого виконанання програми

Показать ответ
Ответ:
1Max8
1Max8
22.12.2021 14:05

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

int main(){

   int arr[10],even[10], cur = 0, tmp;

   srand(time(0));

   puts("Source array:");

   for (int i = 0; i < 10; i++){   //генерация массива +

       arr[i] = rand() % 30;   //отбор четных элементов

       printf("%d\n", arr[i]);

       if (arr[i] % 2 == 0){

           even[cur] = arr[i];

           cur++;

       }

   }

   for (int i = 0; i < cur; i++)   //сортировка пузырьком по убыванию

       for(int j = 0; j < cur - i - 1; j++)

           if (even[j+1] > even [j]){

               tmp = even[j+1];

               even[j+1] = even[j];

               even[j] = tmp;

           }

   puts("Sorted array:");  //печать сортированного массива

   for (int i = 0; i < cur; i++)

       printf("%d\n", even[i]);

   return 0;

}

Объяснение:

Компилятор gcc 8.2.0

0,0(0 оценок)
Ответ:
илрлрле
илрлрле
17.05.2021 17:49
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

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