Массив

[VIUS]

Подскажите пожалуйста, как написать во FreePascal так, чтобы сначала вводился один массив, затем нажимался ENTER и вводился другой массив? И что именно надо написать в описании переменных?

[min@y™]

У тебя есть компьютер с выходом в интернеты?

[VIUS]

Сообщение от min@y™

У тебя есть компьютер с выходом в интернеты?

Если бы не было, я бы здесь вопрос не задал)) Ничего в Интернете не нашел. Поэтому и задал вопрос здесь

[min@y™]

Если бы не было, я бы здесь вопрос не задал))

Да ладно! Я, например, щас с утюга сюда пишу.

Ничего в Интернете не нашел.

Врёшь.
К тому же для решения твоего вопроса интернеты не нужны. Нужен только комп и мозги. Готов поспорить, что ни одной книжки по программированию ты не читал. Ты ж не идиот, правда? А книжки только идиоты читают. Гораздо проще напрячь этих идиотов в интернетах и получить от них готовый ответ. Однако, не стоит забывать вот это (18+).

[newerow1989]

var p1,p2:array[0..20] of byte;
    i:byte;//И что именно надо написать в описании переменных?
begin
   For i:=0 to 20 do
      p1[i]:=Random(255);//вводится один массив
   Readln;//затем нажимался ENTER
   For i:=0 to 20 do
      p2[i]:=Random(255);//и вводился другой массив
   For i:=0 to 20 do
      Writeln(p1[i],' ',p2[i]);//а это для отображения
   Readln;
end.

[VIUS]

Сообщение от min@y™

Да ладно! Я, например, щас с утюга сюда пишу.

Врёшь.
К тому же для решения твоего вопроса интернеты не нужны. Нужен только комп и мозги. Готов поспорить, что ни одной книжки по программированию ты не читал. Ты ж не идиот, правда? А книжки только идиоты читают. Гораздо проще напрячь этих идиотов в интернетах и получить от них готовый ответ. Однако, не стоит забывать вот это (18+).

Я думал что на этом форуме адекватные люди сидят, которые не набрасываются сразу на новичков, а могут спокойно объяснить им что да как. Как оказалось ошибался

Сообщение от newerow1989

var p1,p2:array[0..20] of byte;
    i:byte;//И что именно надо написать в описании переменных?
begin
   For i:=0 to 20 do
      p1[i]:=Random(255);//вводится один массив
   Readln;//затем нажимался ENTER
   For i:=0 to 20 do
      p2[i]:=Random(255);//и вводился другой массив
   For i:=0 to 20 do
      Writeln(p1[i],' ',p2[i]);//а это для отображения
   Readln;
end.

Хотя нет, вот нормальный человек. Спасибо Вам за помощь!

[newerow1989]

Пожалуйста!
На пользователя min@y™ не обращай внимания! Он на этом репутацию зарабатывает

[VIUS]

Сообщение от newerow1989

Пожалуйста!
На пользователя min@y™ не обращай внимания! Он на этом репутацию зарабатывает

Хорошо, спасибо за помощь и совет=) А вот, я немного не то имел ввиду. Если, к примеру, у меня неизвестно количество чисел в массиве, и всё зависит от пользователя, то как быть? Он может ввести 5 чисел, 10, 20 и т.д. Как сделать, чтобы числа вводились в массив, а признаком конца ввода было нажатие на клавишу ENTER? Такое вообще возможно?

[newerow1989]

var p:array of byte;//динамический массив
    n,i:byte;
begin
   Read(n);//здесь указывается размерность массива (сколько чисел надо ввести)
   SetLength(p,n);//изменяем размерность массива, т.е. он будет p:array[0..n-1] of byte;
   For i:=0 to n-1 do
      p[i]:=Random(255);
   Readln;//нажимаем Enter
   For i:=0 to n-1 do
      Writeln(p[i]);//вывод массива
   Readln;
end.

[min@y™]

Он на этом репутацию зарабатывает

Ты не прав. На репутацию мне плевать, т.к. это прото число в базе данных; обналичить его нельзя.

Зри в корень: ты сейчас дал очередному голодающему балбесу, бездельнику и двоечнику «рыбу», а я пытался научить его пользоваться «удочкой».

На пользователя min@y™ не обращай внимания!

Я – не пользователь.

З.Ы. Админы, переведите баллы моей репутации господину newerow1989. Все, до нуля. Пусть подавится.