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

Подскажите как удалить вопрос?

Показать ответ
Ответ:
Lena747456
Lena747456
23.05.2020 01:48

Код на C:

#include <stdio.h>

int main(void)

{

   int n;

   int a[1000];

   scanf("%d", &n);

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

   {

       scanf("%d ", &a[i]);

   }

   

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

   {

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

       {

           if (a[j] > a[j + 1])

           {

               int temp = a[j];

               a[j] = a[j + 1];

               a[j + 1] = temp;

           }

       }

   }

   

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

   {

       printf_s("%d ", a[i]);

   }

   return 0;

}

Объяснение:

Создаем массив на 1000 элементов максимум (можно и больше). Потом мы вводим размер массива. И следующие n строк мы вводим числа. При циклов мы проходимся по массиву и при сортировки пузырьком сортируем числа. Потом мы выводим массив

0,0(0 оценок)
Ответ:
svetika0813
svetika0813
08.02.2023 16:31
1.
var x, m: integer;
begin

x := 6;
m := x + 1;

end.

2.
var x, y: integer;
begin

x := 6;
y := 3;

if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if x<y then writeln('x<y - istinno')
else writeln('x>y - lozhno')

end.

3.
1.
var x, m: integer;
begin

x := 6;
if x-1>0 then m := x - 1;

end.

4.
var x, y, m: integer;
begin

x := 6;
y := 3;

if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')

end.

5.
var x, y, m: integer;
begin

x := 6;
y := 3;

m := x * y;

end.

6.
var x, y, m, n: integer;
begin

x := 6;
y := 3;

n := x / y;
m := x mod y;

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