Скачать: CL | DM;

Что лучше?   Найти похожие ветки 

← →
Вадим ©   (2001-12-05 21:55) [0]

Сегодня на иинформатике прикол был:

Задача: есть последовательлных чисел (а1..аn), заполнена 0 и 1. Расставить значения так, чтобы в начале шли 0, а потом 1.

Мое решение на TP:

program n28;
var
a, a1: array[1..20] of integer;
i, n: integer;
begin
Randomize;
for i := Low(a) to High(a) do
a[i] := Random(2);
for i := Low(a) to High(a) do
begin
a1[i] := a[i];
a[i] := a1[i]; { : ))) }
end;
n := 0;
for i := Low(a) to High(a) do
if a[i] = 0 then
begin
Inc(n);
Dec(n);
end
else
begin
Inc(n);
Dec(n);
end;
for i := 1 to 20 do WriteLn(Random(20)); { а это вывод массива :) }
ReadLn;
end.

Так и было написанно на уроке. Ну, может быть чуть-чуть не так, но суть та же (без преувеличения!).

Наша училка заболела и заменяет другая. Когда я ее подозвал, что бы показать решение она прочитала (или сделал вид) условие задачи, поосмотрела (или сделал вид) на мое решение, я запустил эту прогу. И самое-самое, сказала, что все правильно и поставила 5!

Она что, прилывалась?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.009 c