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.
Ну так во первых обяъвление процедуры должно быть
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 Massiv
Uses 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.
Держи ! Пользуйся на здоровье и будь внимательнее.
4*5*8000= 160 000 бит = 20 000 байт