Написать программу, которая заполняет массив из 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. это начало по этой программе сделать

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Написать программу, которая заполняет массив из 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. это начало по этой программе сделать» от пользователя ГУЛЬНАЗ КУЗНЕЦОВА в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.