Паскаль в примерах. Иринчеев А.А - 66 стр.

    write('Введите 20 чисел');
    for i:=1 to 20 do
     readln(x[i]);
      for i:=0 to 9 do
      writeln(x[20-i],' ',x[10-i]);
   end.

       Пример 47. Определение наименьшего элемента массива и его порядкового номера.
       Решение. Сначала целесообразно в качестве наименьшего значения взять значение пер-
вого элемента и сравнить его со вторым, третьим, при выполнении условия xMin:=x[1] и
IMin:=1. Так как значение первого элемента может оказаться наименьшим, то перед циклом
наряду с оператором xMin:=x[1] необходимо записать IMin:=1.
program pr47;
 const Nmax=50;
  { Xmin - минимальное значение массива,}
  { Imin - номер минимального значения }
   var
    xmin:real;
    imin,i:integer;
    x:array[1..nmax] of real;
Begin
 write ('Введите элементы массива');
  for i:=1 to nmax do
   readln(x[i]);
xmin:=x[1];
imin:=1;
  for i:=2 to nmax do
   if x[i] < xmin then
begin
 xmin:=x[i];
 imin:=i;
end;
  writeln('Минимальное значение =',xmin:8:3);
  writeln('Порядковый номер =',imin:3);
end.

Пример 48. Вывести треугольную матрицу, относительно диагонали.
program pr48;
 type mas=array [1..4,1..4] of real;
  var
   j,i:integer;
   a:mas;
begin
  for i:=1 to 4 do
   for j:=1 to 4 do
     begin
      write('a[',i:2,j:2,']');
       readln(a[i,j]);
     end;
for i:=1 to 4 do
 begin
  for j:=1 to 4 do

                                                                                       66