Привет!) Помогите решить задачу по Информатике. "Заполните массив случайными числами от 40 до 200." Заранее Спасибо.
Привет!) Помогите решить задачу по Информатике. "Заполните массив случайными числами от 40 до 200." Заранее Спасибо.
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(161)+40;
write(a[i]:4);
end;
writeln;
end.
Пример:
83 121 107 43 171 199 116 87 87 144
ГостьИспользуй функцию
X :=40 +Randomize(160)
Не нашли ответ?
Похожие вопросы