Сокращение массива Опции

[mihas]

??? Люди помогите зделать задачу: Дан одномерный массив с 10 элементами. Сжать массив, отбросив каждый второй элемент ( дополонительный массив не использовать )

[mvg]

а если вот так

Код

...
var m:array[1..10] of ...
     i,j:word;
begin
.. read array ...
j:=1;
for i:=1 to 5 do begin m[i]:=m[j];j:=j+2;end;

... типа все.....(или задача не понята 8))

Сообщение отредактировано: volvo - 17.12.2004 17:43

[mihas]

??? Привет, спасибо за ответ. Наверно так и надо. Сегодня праверю!!! Еще раз спасибо!
Слышь а ты не мог бы подумать еще над такой задачей: Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше - русских букв или цифр.

[mvg]

а если попробовать вот что

Код

Const Rus='АБВГДЕ....ЭЮЯабв....эюя';{..=ост. русские буквы}
         Num='0123456789';
Var     Nr,Nb,i:longint;
         f:file of byte;
         
s:string;
Begin
Nr:=0;Nb:=0;
assign(f,'file.ext'); {имя файла}
reset(f);
repeat
read(f,cool.gif; {!!!!! опиши B:byte;}
for i:=1 to lenght(RUS) do if chr(b=RUS[i] then NR:=NR+1;
for i:=1 to lenght(NUM) do if chr(b=NUM[i] then NB:=NR+1;
until Eof(f)
close (f);
s:='Букв больше';
if nb=nr then s:='равное количество';
if nb<nr then s:='Цыфр больше';
writeln (s);
...

видимо должно работать....

Сообщение отредактировано: volvo - 17.12.2004 17:45