Var a: array[1..12] of integer; i: integer; begin randomize; for i: =1 to 12 do a[i]: =random(12+12+1)-12; //заполнение массива writeln('исходный массив: '); for i: =1 to 12 do write(' ',a[i],' '); //вывод исходного массива writeln(); //для перехода на следующую строку writeln('результат: '); for i: =4 downto 1 do write(' ',a[i],' '); for i: =8 downto 5 do write(' ',a[i],' '); for i: =12 downto 9 do write(' ',a[i],' '); //обратный цикли для каждой трети end.
bulk91675
06.04.2020
Var a: array[1..20] of integer; i,x,x1,min,min1: integer; begin min: =32767; randomize; for i: =1 to 20 do a[i]: =random(200)-100; //заполнение массива writeln('исходный массив: '); for i: =1 to 20 do begin write(' ',a[i],' '); if ((a[i]< min) and (a[i] mod 2 < > 0)) then begin min: =a[i]; min1: =min; x: =i; end; end; writeln(); write('позиция: ',x,', значение: ',min1); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
За 3 класс на тему черчёжник какой рисунок можно нарисовать