Может ли кто-нибудь помочь с темой Массивы по информатике? Сформировать и вывести **...

Question

Может ли кто-нибудь помочь с темой Массивы по информатике?
Сформировать и вывести на экран в строчку, через пробел, 25 элементов целого типа от -100 до 100 на языке паскаль.
Заранее спасибо

Answer 1

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;

Answer 2

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.