Сформируйте и выведете на экран массив из 9ти элементов , каждые 3 последовательных элемента которого составлены по следующему правилу: 1й равен числу введенному с клавиатуры; 2й равен текущему индексу , увеличенному в 10 раз; ...

Сформируйте и выведете на экран массив из 9ти элементов , каждые 3 последовательных элемента которого составлены по следующему правилу: 1й равен числу введенному с клавиатуры; 2й равен текущему индексу , увеличенному в 10 раз; 3й равен разности случайного двузначного числа и предыдущего элемента. Спасибо за раннее.
Гость
Ответ(ы) на вопрос:
Гость
const n=9; var x:array[1..100] of integer; i:integer;  begin Randomize; for i:=1 to n div 3 do begin  write('x[',3*i-2,'] = '); readln(x[3*i-2]);  x[3*i-1]:=10*(3*i-1);  x[3*i]:=random(90)+10-x[3*i-1];  end; writeln('Полученный массив:'); for i:=1 to n do write(x[i]:4); writeln; end. Пример: x[1] = 18 x[4] = 23 x[7] = 45 Полученный массив:   18  20  21  23  50 -19  45  80 -47
Не нашли ответ?
Ответить на вопрос
Похожие вопросы