Разработка аос. работа с bios. кто тут может с курсовой работой. нужно все это сделать на с++ в долгу не останусь

 

 

ну так во первых   обяъвление процедуры должно быть

procedure inputmas1(var mas1: tmas );

 

 

  во вторых ты забыл   end;   т.е 

 

 

begin for i: =1 to 10 do      begin            mas1[i]: =random(n);             write(mas1[i]: 3);       end;   end; {забытый end}

 

 

в третьих ты   не написал основную прграмму т.е забыл begin и не вызвал процедуру 

inputmas1

 

 

begin

      clrscr;       inputmas1(mas1);

      readkey; end. 

 

 

  итого прога должна выглядеть примерно так

 

 

program massivuses crt; const n=10; type tmas=array[1..n] of integer; var mas1: tmas;

procedure inputmas1(var mas1: tmas); var i: integer; begin      for i: =1 to 10 do        begin        mas1[i]: =random(n);         write(mas1[i]: 3);         end; end; {основная прога}begin clrscr; inputmas1(mas1); readkey; end.

 

 

 

 

держи ! пользуйся на здоровье и будь внимательнее.

 

 

 

 

 

 

2)

program masty 

uses crt; var n: integer; begin clrscr; write('введи номер масти 1-4 : '); readln(n); case n of 1: writeln ('пики'); 2: writeln ('трефы'); 3: writeln ('бубны'); 4: writeln ('червы'); else writeln('неправильный номер масти'); end; readkey; end. 

 

 

  1)

program cifry;

 

  uses crt; var n: integer;

        s: string[2]; begin clrscr;   write('введи двузначное целое число : ');   readln(n);

  str(abs(n),s);

if (s[1]=s[2]) then writeln('цифры числа одинаковые')

  else  writeln('цифры числа не одинаковые');  

 

 

  readkey;  

 

end.