Что тут не так?Uses crt;Const N=20;Var a:array [1..N] of integer; i:integer;Begin clrscr;...

Question

Что тут не так?
Uses crt;
Const N=20;
Var a:array [1..N] of integer; i:integer;
Begin
clrscr;
randomize;
for i:=1 to N do a:=random(100);
Redln(a);
Writeln('Элементы масива:',a);
End.

Answer 1

Во-первых, добавить предпоследнюю строчку readkey;
Во-вторых,(Redln пишется Readln) Readkey в программе лишнее, так как переменная a[i]   определяется случайным образом
В-третьих, переменную а в местах после randomize заменить на a[i]
Далее, оператор цикла надо сделать полным,иначе мы увидим только одно число из 20  Для этого надо добавить после оператора do слово begin и третью строку снизу end;  перед предпоследней добавленной readkey;

Comments

спасибо большое

Answer 2

Надо в цикле писать a[i], а не а
Да и ниже тоже использовать а[i] и цикл

uses
  crt;

const
  N = 20;

var
  a: array [1..N] of integer; i: integer;

begin
  clrscr;
  randomize;
  for i := 1 to N do a[i] := random(100);
  Write('Элементы масива: ');
  for i := 1 to N do Write(a[i]:4);
end.