Предмет: Информатика,
автор: KathWeis
Может ли кто-нибудь помочь с темой Массивы по информатике?
Сформировать и вывести на экран в строчку, через пробел, 25 элементов целого типа от -100 до 100 на языке паскаль.
Заранее спасибо
Ответы
Автор ответа:
0
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;
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;
Интересные вопросы
Предмет: Математика,
автор: trillionors
Предмет: Информатика,
автор: polinasapkevich
Предмет: Українська мова,
автор: Romkabazz
Предмет: Алгебра,
автор: 666DeadMemories666
Предмет: Литература,
автор: валерия12шепеленко