Описать каждую строку кода.

[dmitriy20104]

Здравствуйте!
Ребят, помогите, пожалуйста, описать каждую строку кода программы.
Вот код:

var a:array[1..100] of integer;
     i,n:integer;
begin
write('Введите количество элементов массива');
read(n);
writeln('Заполните массив целыми числами');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]<0 then
a[i]:=0;
writeln('получившийся массив после обработки:');
for i:=1 to n do
writeln(a[i]);
readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Leshii]

var a:array[1..100] of integer;{инициализурем массив целых чисел от 1 до 100}
     i,n:integer;
begin
write('Введите количество элементов массива');
read(n);{Ввод длинны массива}
writeln('Заполните массив целыми числами');
for i:=1 to n do
write('a[',i,']=');{добавил для наглядности}
readln(a[i]);{Вводите элементы массива}
for i:=1 to n do
if a[i]<0 then{ если элемент массива строго меньше нуля }                    
a[i]:=0;{( отрицательный), то присваиваем ему значение 0}
writeln('получившийся массив после обработки:');
for i:=1 to n do{вывод массива}
writeln(a[i]);
readln{пауза}
end.

[Poma][a]

Если Вы хотите помощи тогда 
начали
        1) Используйте форматирование, а то Ваш код совершенно не читабелен.
        2) Есть справка + учебники, где точно что-то подобное встречается.
        3) Если уж совсем не понятно, то покажите свои наработки.
закончили
Иначе
        Идем в Фриланс с деньгой.

[Leshii]

Ромаха, зачем во фриланс то?)
Да и сомневаюсь что человек заплатит во обще)
За него уже кстати код отформатировали, и главное что код есть, пусть даже и где-то передранный.

[Poma][a]

За него уже кстати код отформатировали

Разве?
Возможно у нас разные понятия о внешнем виде кода.

var a:array[1..100] of integer;
     i,n:integer;
begin
     write('Введите количество элементов массива');
     read(n);
     
     writeln('Заполните массив целыми числами');
     for i:=1 to n do
          readln(a[i]);
     
     for i:=1 to n do
          if a[i]<0 then
               a[i]:=0;

     writeln('получившийся массив после обработки:');
     for i:=1 to n do
     writeln(a[i]);
     readln
end.

Выше представленный код, для меня, является более-менее отформатированным.

[ViktorR]

Leshii

 ...
for i:=1 to n do
write('a[',i,']=');{добавил для наглядности}
readln(a[i]);{Вводите элементы массива}
...

Тогда, после добавления строки для наглядности, правильнее будет так:

...
for i:=1 to n do
begin
   write('a[',i,']=');{добавил для наглядности}
   readln(a[i]);{Вводите элементы массива}
end;
...

Вроде ...

[Leshii]

Ну думаю там автор мог додуматься begin и endпоставить.

Ромаха, во-первых грубить не хорошо, и да, понятия разные.

Вы меня по троллить решили ?)

[Serge_Bliznykov]

Leshii, Poma][a - убедительнейшая просьба к вам обоим - прекратить диспут на тему форматирования и кто кому грубит. Очень прошу вас!

Модератор

[Poma][a]

простите не удержался : ни грубости, ни троллинга в своих постах не увидел.

Всё, всё удаляюсь из данной темы во имя избежания постыдного наказания.