Автор: mihas 28.08.2003 1:14
??? Люди помогите зделать задачу: Дан одномерный массив с 10 элементами. Сжать массив, отбросив каждый второй элемент ( дополонительный массив не использовать )
Автор: mvg 28.08.2003 1:30
а если вот так
Код
...
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))
Автор: mihas 28.08.2003 13:04
??? Привет, спасибо за ответ. Наверно так и надо. Сегодня праверю!!! Еще раз спасибо!
Слышь а ты не мог бы подумать еще над такой задачей: Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше - русских букв или цифр.
Автор: mvg 28.08.2003 13:28
а если попробовать вот что
Код
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);
...
видимо должно работать....