Привет!) Помогите решить задачу по Информатике. "Заполните массив случайными чис...

September 2021 2 21 Report

Привет!) Помогите решить задачу по Информатике. "Заполните массив случайными числами от 40 до 200." Заранее Спасибо.

Verified answer

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

1 votes Thanks 1

sabinakazagulova Спасибо большое!))

xxxeol Перестарался. Надо только заполнить массив.

petyaGavrikov Пожалуйста

xxxeol

Verified answer

Используй функцию
X :=40 +Randomize(160)

0 votes Thanks 1

Answers & Comments

Verified answer

Verified answer

Эссе "Жаңа технология жетістіктері"...

Переведите пожалуйста сочинение на казахский язык) Р.s. переводчиком не пользов...

Морфологический разбор слова душисты ( не скошенные луга так душисты , что непри...

Привет) Помогите пожалуйста, нужно эссе на казахском языке. На тему "Тұңғыш ғалы...

ДЛина прямоугольника неизвестно , ширина прямоугольника неизвестно, периметр 24 ...

помогите поже, срочно нужно сочинение на казахском языке " Ана мейірімі"...

рекомендуемые вопросы

Helpful Links

Helpful Social