90 . распишите каждый шаг (учителю объяснить надо) var a: array[1..100] of integer; i,j,c,k,n: integer; f: boolean; begin writeln('vvedite razmer massiva'); readln(n); writeln('vvedite el-ty massiva'); for i: =1 to n do begin write('a[',i,'] = '); readln(a[i]); end; writeln('massiv'); for i: =1 to n do write(a[i]: 4); writeln; k: =2; while k< =n do begin c: =a[k]; i: =1; if c while f do begin a[k-i+1]: =a[k-i]; i: =i+1; f: =false; if i if c end; a[k-i+1]: =c; k: =k+1; { for i: =1 to n do write(a[i]: 4); writeln; } end;

201

371

Посмотреть ответы 2

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

idrisovsa

Информатика

4,5(13 оценок)

Var a: array[1..100] of integer; //объявляем целочис. массив из 100 элементов i,j,c,k,n: integer; //целочислительные переменные f: boolean; // логические переменные begin // начало программы writeln('vvedite razmer massiva'); //выводим текст readln(n); //вводим переменную n writeln('vvedite el-ty massiva'); //выводим текст for i: =1 to n do //повторить n раз begin write('a[',i,'] = '); readln(a[i]); end; {отвратный кодстайл. в данном цикле заполняем массив n количеством элементов. как будто нельзя было объявить динамический массив} writeln('massiv'); //вывод текста for i: =1 to n do write(a[i]: 4); //выводим n элементов массива writeln; //сносим строчку k: =2; //k=2 while k< =n do //пока k меньше или равно n выполнять begin //начало тела цикла c: =a[k]; //с=a[k] i: =1; //i=1 if c while f do //ошибка, странное сочетание логического оператора и цикла с предусловием begin //начало тела вложенного цикла, объявленного ошибочно a[k-i+1]: =a[k-i]; {элементу массива a, индекс которого равен k-i+1 присваивается элемент массива a, индекс которого равен k-i, по сути, это просто сдвих массива на один элемент} i: =i+1; //увеличение i на 1 f: =false; //f=ложь if i if c end; //ошибка, совсем упоротое сочетание условных операторов a[k-i+1]: =c; {элементу массива a, индекс которого равен k-i+1 присваивается c} k: =k+1; //k увеличивается на 1 { //комментарий как у меня for i: =1 to n do write(a[i]: 4); //снова вывод от 1 до n элементов массива writeln; //сноска строки } end; //выход из вложенного цикла //нет выхода из основного цикла //нет завершения программы //абсолютно нерабочий код //сожгите автора как ведьму

Almazik20056

Информатика

4,7(87 оценок)

Var a, c: real; begin readln(a, c); writeln(sqrt(sqr(c) - sqr(; end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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