Написать программу, которая заполняет массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49. После этого программа просит пользователя ввести 6 целых чисел от 1 до 49 (при вводе проверяется, что вводимое число соответствует данному условию; в противном случае число вводится повторно). Программа считает, сколько чисел из введённых пользователем оказалась в массиве, и выводит их количество на экран. Паскаль абс срочно без плагеата Program Loto;
Uses Crt;
Const
lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var
lott : array [1..lt] of integer;
i, nom : integer;
Begin
randomize;
for i:=1 to lt do
lott[i]:=i;
i:=1;
while i <= shar do begin
nom := random(49)+1;
if lott[nom] <> 0 then begin
write(lott[nom], ‘ ’);
lott[nom] := 0;
i := i+1;
end;
end;
writeln;
End.
это начало по этой программе сделать
Uses Crt;
Const
lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var
lott : array [1..lt] of integer;
i, nom : integer;
Begin
randomize;
for i:=1 to lt do
lott[i]:=i;
i:=1;
while i <= shar do begin
nom := random(49)+1;
if lott[nom] <> 0 then begin
write(lott[nom], ‘ ’);
lott[nom] := 0;
i := i+1;
end;
end;
writeln;
End.
это начало по этой программе сделать