Переход на новую строку Опции

[suriv]

Дан массив из 100 чисел. Заполнить его случаными значениями и распечатать его по 10 чисел в строке.

Код

program k;
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if i mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.

В чем моя ошибка?

[Altair]

поменяй местами строки:

if i mod 10 = 0 then writeln;

и

write(m[i]:5);

ТО есть код такой:

Код

var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
write(m[i]:5);
if i mod 10 = 0 then writeln;
{write(m[i]:5);}
end;
readln;
end.

Странно, вроде знакомый какой-то код

[xds]

Ошибка на еденичку: надо

Код

 ...
 if (i - 1) mod 10 = 0 then
 ...

[Altair]

ничего подобного! xds, ты не прав! Посмотри скрин, все нормально!

[xds]

Я имел в виду одно из возможных изменений в коде suriv'а.

[Altair]

Код suriv'a работает правильно (по заданию).
А что дала бы строка, которую ты предложил? 9 столбцов было бы.
А по задания 10

[xds]

Смещение i не влияет на цикличнось модуля... Если ты все еще считаешь, что я неправ, запусти и посчитай колонки...

Код

program k;
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if (i - 1) mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.

[Altair]

не влияет. ТОлько нервничать зачем? я же спокойно разговариваю ... я просто часто забываю ставить смайлики
я просто не согласен с фразой:

Ошибка на еденичку

ошибки ведь нет. :D

[xds]

А что дала бы строка, которую ты предложил? 9 столбцов было бы.

А я просто не согласен с ложным утверждением

[Altair]

Тогда и я:

Смещение i не влияет на цикличнось модуля

Фраза смысла не имеет.
:D

Оба мы тут много "наморозили" :D
Есть ли смысл дальше продолжать спорить?

[xds]

Нет, т. к. поставленная цель - код, работающий в соответствии с заданием - достигнута.

:p4:

[suriv]

Aita

Сообщение отредактировано: suriv - 30.10.2004 16:10

[Altair]

[offtop]
Отлично. Это замечательно, когда люди находят взаимопонимание!!! :yes: :p4:
[/offop]