коментариии к строчкам

[Licwin]

Var a,b:array[1..15] of integer; c:array[1..31] of integer; 
i:byte;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(10)+1;
Write('a[',i,']=',a[i],' ');
b[i]:=random(30)-20;
Write('b[',i,']=',b[i],' ');
end;
Writeln;
for i:=1 to 31 do
begin
if i mod 2<>0
then c[i]:=a[i]
else c[i]:=b[i];
Write('c[',i,']=',c[i],' ');
end;
readln;
end.

напишите комментарии к строчкам кроме i:byte; циклов for, и операторов if!



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

[Aristarh Dark]

А зачем комментарии к неработающей программе?

[Licwin]

все она работает!!
так сможешь коментарии написать?))

[Aristarh Dark]

Работает она у тебя только потому что RANGECHECKS отключен. Как только включишь - начнет падать. Так что она неработающая

[Licwin]

да фиг сним)))
вы мне лучше напишите коментарии к строчкам)) ппц как нада!

[sheka]

Напишу комментарии к неработающей программе
255507394.

[Aristarh Dark]

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

255507394.

Это цена?

[Licwin]

ахахах))))

[eoln]

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

Напишу комментарии к неработающей программе

Напишу неработающие комментарии к неработающей программе

array http://www.delphibasics.ru/Array.php
randomize http://www.delphibasics.ru/Randomize.php
random http://www.delphibasics.ru/Random.php
Write http://www.delphibasics.ru/Write.php
Writeln http://www.delphibasics.ru/WriteLn.php
mod http://www.delphibasics.ru/Mod.php
readln http://www.delphibasics.ru/ReadLn.php

[Alex11223]

Сделаю неработающую программу без комментариев работающей и с комментариями.
Вебмани или ЯД, быстро, недорого, контакты в подписи.