Функция

[stas45rus]

Program U;
Uses Crt;
Var d,j:Byte;
 
Function DS(z:Byte):Byte;
Var i:Byte;
    a:array[1..10] Of Byte;
begin
  For i:=1 To 8 Do
   begin
     a[i]:=z mod 2;
     z:=z div 2;
   end;
  DS:=a[i];
end;
 
BEGIN
 ClrScr;
 Write('Введите число: ');
 Readln(d);
 DS(d);
 For j:=8 DownTo 1 Do
  Write(DS(d));
 Readln;
END.

Функция должна переводить число в двоичную СС и выдавать результат. В чём тут ошибка?

[Dush]

1. зачем у вас в функции массив объявлен как 1..10 когда нужно 1..8
2. вы в функции все равно проходите 8 раз по числу, соотвественно нужное вам представление можно получить уже в функции и избавится из основной программы от цикла

предлагаю:
изменить тип функции, в цикле функции ввести переменную которая накапливает значения массива в строку, удалить из основы цикл