Дано натуральное число n (n< 10в6n< 106). заполнить массив его цифрами, расположенными в обратном порядке, т. е. первый элемент равен последней цифре, второй — предпоследней и т. д. незаполненные элементы массива должны быть равны нулю. элементы массива, являющиеся цифрами числа n вывести на экран. формат входных данных с клавиатуры вводится натуральное число n (n< 10в6n< 106). формат выходных данных требуется вывести содержимое массива после заполнения согласно условию . элементы должны разделяться пробелами. примеры: входные данные: 12 выходные данные: 2 1

Var a: array[1..10] of integer; n,k,i: integer; begin write('n = '); readln(n); k: =0; while n> 0 do   begin   k: =k+1;   a[k]: =n mod 10;   n: =n div 10;   end; for i: =1 to 10 do write(a[i],' '); end. пример: n = 456387 7 8 3 6 5 4 0 0 0 0 

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.