Регистрация Спросить otvet5GPT
Ulya391
28.10.2022 13:11
Информатика
Есть ответ 👍

Создайте программу в паскале формирования исходного одномерного целочисленного массива случайным образом в файле input.txt. отсортированный исходный массив по возрастанию и по убыванию записывается в виде двух таблиц в файл output.txt

203
417
Посмотреть ответы 3

Ответы на вопрос:

серик26
серик26
4,6(7 оценок)
Const   nn= 50; var   a: array[1..nn] of integer;   i,j,k,n: integer;   f: text; begin   write('введите количество чисел: '); read(n);   { формирование входного файла }   randomize;   assign(f,'input.txt'); rewrite(f);   for i: =1 to n do   begin k: =random(50); writeln(f,k) end;   close(f);   { чтение входного файла в массив и вывод }   reset(f);   writeln('элементы массива');   for i: =1 to n do   begin readln(f,a[i]); write(a[i]: 3) end;   close(f);   writeln;   { сортировка по возрастанию методом пузырька }   for i : = 1 to n-1 do       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k end;   { вывод в файл в порядке возрастания }   assign(f,'output.txt');   rewrite(f);   for i: =1 to n do write(f,a[i]: 3);   writeln(f);   { вывод в файл в порядке убывания }   for i: =n downto 1 do write(f,a[i]: 3);   writeln(f);   close(f) end.   
умница603
умница603
4,8(3 оценок)
Program odnomernui_massuv; uses crt; var a: array[1..100] of integer;       n,i,j,imin: byte;       buf: integer; begin write('размер массива от 1 до 100 n='); readln(n); //ручной ввод массива writeln('вводим элементы массива a: '); for i: =1 to n do   begin   write('a[',i,']=');   readln (a[i]);   end; //вывод массива до изменения writeln('исходный массив  a: '); for i: =1 to n do write (a[i]: 5); writeln; //поиск минимума в серии imin: =1; for i: =1 to n do if a[i]< a[imin] then imin: =i; writeln('imin=',imin); if imin> n-2 then write('элементов для сортировки нет! ') else   begin   for i: =imin+1 to n-1 do   for j: =i+1 to n do   if a[i]< a[j] then     begin       buf: =a[i];       a[i]: =a[j];       a[j]: =buf;     end;   writeln('элементы после минимального отсортированы по убыванию: ');   for i: =1 to n do   write(a[i],' ');   end; end. проверь
gaytad1
gaytad1
4,6(57 оценок)

1. картинка

2.

алг

нач

цел a, b, c, x1, x2, x3, m

ввод a, b, c

x1:=a**2 - b**2 + c**2

x2:=a * b * c

x3:=1 - c

m:=x1;

если x2 > m то m:=x2 все

если x3 > m то m:=x3 все

вывод x1, x2, x3, m

кон

Объяснение:

Вводим 3 числа (a, b, c)

Вычисляем х1

Вычисляем х2

Вычисляем х3

Принимаем за наибольшее число m равное х1

Сравниваем m с х2, если х2 больше, то присваиваем m значение х2

Сравниваем m с х3, если х3 больше, то присваиваем m значение х3

Выводим на экран результат (x1, x2, x3, m)

sqr - квадрат числа

**2 - квадрат числа


Даны три числа а,в,с. Вычислить х1=а2-в2+с2, х2= авс, х3=1-с. Определить наибольшее из х1, х2 и х3.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS