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

Поменять местами переднюю и заднюю части массива с чётным количеством элементов for i := 1 to n do
Obmen2(A, 2*n, i, i+n,);

Показать ответ
Ответ:
jakupovaalbina
jakupovaalbina
11.04.2021 06:39

var

  d:integer;

  a,b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('Введите номер операции '); readln(d);

  case d of

    1: writeln(a, ' + ', b, ' = ', a + b);

    2: writeln(a, ' - ', b, ' = ', a - b);

    3: writeln(a, ' * ', b, ' = ', a * b);

    4: begin

        if b <> 0 then

          writeln(a, ' / ', b, ' = ', a / b)

       else

          writeln('делить на 0 нельзя');

     end;

    else

       writeln('Неизвестная операция');

  end;

end.

   

 

 

//вторая программа

 

var

  d:integer;

  a:real;

begin

  write('Длина отрезка = '); readln(a);

  write('Введите код единицы измерения '); readln(d);

  case d of

    1: writeln('Длина отрезка ', a / 10, ' метр(а, ов)');

    2: writeln('Длина отрезка ', a * 1000, ' метр(а, ов)');

    3: writeln('Длина отрезка ', a, ' метр(а, ов)');

    4: writeln('Длина отрезка ', a / 1000, ' метр(а, ов)');

    5: writeln('Длина отрезка ', a / 100, ' метр(а, ов)');

    else

       writeln('Неизвестная единица длины');

  end;

end.

0,0(0 оценок)
Ответ:
qwerty2569
qwerty2569
08.09.2020 04:20
#include <stdlib.h> 
#include <time.h> 
#include <stdio.h> 
#include <conio.h> 
#define N 10 
int main() { 
    int a[N], min, max; 
    size_t n, ix_min, ix_max, beg, end; 
    srand((unsigned)time(NULL)); 
    for (n = 0; n < N; n++) a[n] = rand(); 
    for (n = 0; n < N; n++) printf("%6i", a[n]); 
    printf("\n"); 
    ix_max = ix_min = 0; 
    min = max = a[0]; 
    for (n = 1; n < N; n++) { 
        if (a[n] < min) { 
            min = a[n]; 
            ix_min = n; 
        } 
        if (a[n] > max) { 
            max = a[n]; 
            ix_max = n; 
        } 
    } 
    beg = ix_min < ix_max ? ix_min : ix_max; 
    end = ix_min > ix_max ? ix_min : ix_max; 
    ++beg; 
    if (beg - end > 0) 
        for (n = beg; n < end; n++) 
            printf(" %i ", n + 1); 
    else printf("Elements are absent\n"); 
    _getch(); 
    return 0; 
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота