Может ли кто-нибудь помочь с темой Массивы по информатике? Сформировать и вывести на экран в строчку, через пробел, 25 элементов целого типа от -100 до 100 на языке паскаль. Заранее спасибо
Может ли кто-нибудь помочь с темой Массивы по информатике?
Сформировать и вывести на экран в строчку, через пробел, 25 элементов целого типа от -100 до 100 на языке паскаль.
Заранее спасибо
Гость
Ответ(ы) на вопрос:
Гостьprogram Masivs;
var
a: array [1..25] of integer;
i: integer;
begin
{Формирование массива случайными числами в заданном диапазоне}
randomize;
for i:=1 to 25 do
a[i]:=random(201)-100;
{Вывод сгенерированных чисел}
for i:=1 to 25 do
Write(a[i],' ');
end;
ГостьProgram programma;
Uses crt;
Var i: integer;
a: array [1..25] of integer;
begin clrscr;
randomize;
for i:=1 to 25 do
a[i]:=random(201)-100;
for i:=1 to 25 do
write(a[i], ' ');
end.
Не нашли ответ?
Похожие вопросы