Составить программу, позволяющую ввести с клавиатуры данные о росте учеников в классе в массиве и вывести на экран

Вариант через рандом - рост задается сам var a: array of integer; n, i: integer; begin write('введите количество учеников в классе: '); readln(n); setlength( a, n ); for i : = 0 to n - 1 do begin a[ i ] : = random(200) mod 1000; writeln('рост ', i + 1, ' ученика: ', a[ i ]); end; end.

Program rost; var a: array[1..30] of integer; n: integer; begin writeln('введите количество учеников'); read(n); for i: =1 to n do read(a[i]); write(a,'[i]'); end. ну как то так.

Сместиться в точку (0, 0) опустить перо сместиться на вектор(0, 6) сместиться на вектор(0, -3) сместиться на вектор(2, 0) сместиться на вектор(0, 3) сместиться на вектор(0, -6) поднять перо сместиться на вектор(1, 0) опустить перо сместиться на вектор(4, 4) сместиться на вектор(-2, -2) сместиться на вектор(-2, 2) поднять перо сместиться на вектор(5, -4) опустить перо дальше вместо "сместиться на вектор" буду писать см, вместо "поднять перо"   - пп, а вместо  "опустить перо" - оп см(0, 4) см(2, 0) см(0, -2) см(-2, 0) пп см(3, -2) оп см(2,4) см(2,-4) пп см(1,0) оп см(2,4) см(2,-4) пп см(-3,2) оп см(1,0) пп см(1,-2) оп см(0,4) см(0,-2) см(2,0) см(0,2) см(0,-4) пп

Const      n = 5;   var    a,b : array [1..n] of integer;     i,s,k1,k2,max,min : integer;       begin  for i : = 1 to n do    readln (a[i]);       for i : = 1 to n do    writeln (i,')elem = ',a[i]);       end.    begin  for i : = 1 to n do    a[i] : = i * 3;       for i : = 1 to n do    writeln (i,')elem = ',a[i]);   end.    begin  s : = 0;   for i : = 1 to n do    begin    readln (a[i]);     s : = s + a[i];     end;         writeln (s); end.  begin    k1 : = 0; k2 : = 0;       for i : = 1 to n do    begin    readln (a[i]);     if a[i] > 0 then      k1 : = k1 +1;     if a[i] < 0 then      k2 : = k2 +1;     end;           writeln ('+ ',k1);     writeln ('- ',k2);   end.   begin  k1 : = 0; k2 : = 0;       for i : = 1 to n do    begin    readln (a[i]);     if (a[i] > 0) and (i mod 2 = 1) then       k1 : = k1 +1;     if (a[i] < 0) and (i mod 2 = 0) then      k2 : = k2 +1;     end;         writeln ('+ ',k1); writeln ('- ',k2);   end.    begin  for i : = 1 to n do    begin    readln (a[i]);     if a[i] < 0 then      b[i] : = sqr (a[i]);     if a[i] > 0 then      b[i] : = a[i] * a[i] * a[i];     end;         for i : = 1 to n do    write (a[i],' ');   writeln ();   for i : = 1 to n do    write (b[i],' ');   end.      begin  for i : = 1 to n do    readln (a[i]); max : = a[1]; min : = a[1]; for i : = 2 to n do     begin    if a[i] > max then      max : = a[i];     if a[i] < min then      min : = a[i];     end;   writeln ('max=',max);     writeln ('min=',min);   end.      begin  for i : = 1 to n do    readln (a[i]);       writeln ('found : ');   readln (s);         k1 : = 0; k2 : = 0;   for i : = n downto 1 do    if a[i] = s then    begin      k1 : = k1 + 1;       k2 : = i;     end;   writeln ('k=',k1);   writeln ('i=',k2);         end.бери те переменные, которые используются в конкретной .