Регистрация
sapetnyymark
31.01.2022 12:41
Информатика
Есть ответ 👍

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;

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

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

ОсколковРоман
ОсколковРоман
4,7(95 оценок)
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; //выход из вложенного цикла //нет выхода из основного цикла //нет завершения программы //абсолютно нерабочий код //сожгите автора как ведьму
Salat12
Salat12
4,4(88 оценок)
Program gt; var n,i,j,min,max,l,h: integer; a: array[1..1000]of integer; begin readln(n); l: =1; h: =1; max: =-maxint; min: =maxint; for i: =1 to n do begin read(a[i]); if(a[i]> max)then begin l: =i; max: =a[i]; end; if(a[i]< min)then begin h: =i;   min: =a[i]; end; end; for i: =1 to n do if  (  ((i> h)and(i< l))  or((i< h)and(i>   and  (a[i]> 10)  and  (a[i]< 50)  then write(0,' ') else write(a[i],' '); end.

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