Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Процедура ввода,(ввод каждого элемента через Enter):

Код:

procedure FillMassive (numel : integer; var a : TMassive);
var
  i : integer;
begin
  writeln('Введи элементы массива');//
  for i := 0 to numel - 1 do
    readln(a[i]);{Можешь заменить на read}
end;

Цитата:

з.ы. я еще не понел почему numel - 1 объясните пожалуйста)

Потому что numel - это всего элементов, а мы начинаем с нуля.....
Можно записать вот так
(for i := 1 to numel do)

=============

P.S.

Цитата:

Не судьба не много книжки почитать?

Плюс ко всему:

Цитата:

4. Просьба не писать в темах в заголовке слово "задачка" и похожие, потому что это будет расцениваться как просьба написать лабу, для чего создана отдельная тема
Выбирайте содержательные названия тем

(c)By _Great_
Прочитать правила >>