Задайте массив из 10 элементов с датчика случайных чисел. выведите на экран исходный массив и и номера тех элементов, которые расположены между наибольшим и наименьшим элементами

Уже отвечал, но все же такое решение актуальнее:   var  ar: array[1..10] of integer; max,min,i,kmax,kmin: integer; begin randomize; max: =0; min: =1000; for i: =1 to 10 do begin    ar[i]: =random(1000)+1;     if (ar[i] > max) then      begin max: =ar[i]; kmax: =i; end        else if (ar[i] < min) then begin min: =ar[i]; kmin: =i;   end;     write(ar[i],' '); end; writeln(); if (kmax > kmin) then for i: =kmin+1 to kmax-1 do write(i,' ')      else if (kmax < kmin) then for i: =kmax+1 to kmin-1 do write(i,' '); end. p.s. в решении выше есть далеко ни одна ошибка ; )

1. a: =10; b: =20; c: =30; 2. при write(a) - выведется на экран просто значение а; при write('a') - выведется просто буква "а"; при write('a=', a) - выведется на экран, например: a=10 3.  чтобы вывести на экран число с фиксированной запятой нужно написать write(a: 0: 3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275 4.  a = 1; b = 11; 5. program pl; var  a, b : integer; s, p : real; begin writeln("введите первую сторону прямоугольника: "); readln(a); writeln("введите вторую сторону прямоугольника: "); readln(b); p = 2*(a+b); s = a*b; writeln("площадь прямоугольника равна: ", s); writeln("периметр прямоугольника равен: ", p); end.

      1         1           1       1         0       0     1       1 463/2=231/2=115/2=57/2=28/2=14/2=7/2=3/2=1 важно разделить число так чтобы оно было без остатка если допустим число 463 не делится на 2 значит надо занять 1 тогда будет число 462 его разделим на 2 и т.д. а эту единицу необходимо записать над знаком деления если число делится пишим 0 над знаком деления и записываем получившееся число с права налево получается число 11001111 также и в восьмеричной системе счисления пишим остаток над знаком деления         7       1   463/8=57/8=7 ответ 717 аналогично в 16 ричной сс       15       12 463/16=28/16=1 так как 15 у нас равно е а 12 с ответ будет 1се b)     1         0       0           1       1       1       0     1     0     0     1209/2=604/2=302/2=151/2=75/2=37/2=18/2=9/2=4/2=2/2=1 ответ с права налево 10010111001         1         7       2 1209/8=151/8=18/8=2 ответ 2271           9         в     1209/16=75/16=4 ответ 4в9 с)   0       1         0       1       0       1       1     0   362/2=181/2=90/2=45/2=22/2=11/2=5/2=2/2=1 ответ 101101010       2       5 362/8=45/8=5 ответ 552       а         6 362/16=22/16=1 ответ 16а d)     1           0       1           0         1           0       1       0       1     1     1 3925/2=1962/2=981/2=490/2=245/2=122/2=61/2=30/2=15/2=7/2=3/2=1 ответ 111101010101         5           2       5   3925/8=490/8=61/8=7 ответ 7525         5             5 3925/16=245/16=15 иил f ответ  f55 е)       1           1             0           1           1         0         1       0       0       0 11355/2=5677/2=2838/2=1419/2=709/2=354/2=177/2=88/2=44/2=22/2=     1     1     0   11/2=5/2=2/2=1 ответ 10110001011011           3           3         1       6 11355/8=1419/8=177/8=22/8=2 ответ 26133           в           5           с 11355/16=709/16=44/16=2 ответ 2с5в