составьте программу которая заполняет массив b 1..8 случайными целыми числами в диапазоне от 1 до 10 затем изменяет знак элементов с чётными индексами на противоположный.выведите на экран исходный и полученный массивы

function Random(a,b: integer): integer; Возвращает случайное целое в диапазоне от a до b

Так что всё, не надо тут.

function Random(maxValue: integer): integer; Возвращает случайное целое в диапазоне от 0 до maxValue-1 function Random(a,b: integer): integer; Возвращает случайное целое в диапазоне от a до b function Random: real; Возвращает случайное вещественное в диапазоне [0..1) на будущее... Учи паскаль =D

Ух ты, для меня эт что-то новенькое :D Всегда заполнял массив другим способом и не подозревал, что есть еще, сорян чувак)

Ну во :) Если чё - обращайся =D

randomize();for i:= 1 to 8 do begina[i]:=random(1, 10);if(i mod 2 = 0) a[i] := -a[i];end;

..............................