составьте программу которая заполняет массив b 1..8 случайными целыми числами в диапазоне от 1 до 10 затем изменяет знак элементов с чётными индексами на противоположный.выведите на экран исходный и полученный массивы
More Questions From This User See All
Answers & Comments
for i:= 1 to 8 do begin
a[i]:=random(1, 10);
if(i mod 2 = 0) a[i] := -a[i];
end;
Возвращает случайное целое в диапазоне от a до b
Возвращает случайное целое в диапазоне от 0 до maxValue-1
function Random(a,b: integer): integer;
Возвращает случайное целое в диапазоне от a до b
function Random: real;
Возвращает случайное вещественное в диапазоне [0..1)
на будущее... Учи паскаль =D