Question

Нужно заполнить массив из 10 случ чисел и вывести номера всех элементов,равных 50 в Pascal. спасайте плз

Answer 1

var

arrey{1..10] of integer;//объявляем массив с ячейками от 1 до 10 с целочисленными данными

i:integer

begin

for i:=1 to 10 do //цикл от 1 до 10, соответственно при первом цикле будет i=1 в следующем 2 и так далее последний цикл отрабатывает при 10

begin//т.к. после do должен быть один оператор, делаем begin ... end в него можно неограниченное кол-во операторов

a[i]:=random(3)+49;//функция random генерирует число от 0 до значения меньшего на 1, указанного в скобках, чтобы могло получится 50 нужно сдвинуть диапазон , для этого добавляем +49. Всего 3 возможных значения генерируется, чтобы большая вероятность нахождения в массиве числа 50

write{a[i])," ");//выводим только что сгенерированное число , чтобы оно не слиплось со следующим  добавляем пробел. В конце цикла получим вывод массива через пробел

end;

writeln()//переносим курсор ввода на следующую строку

for i:=1 to 10 do //повторяем проход по массиву, только сейчас он уже заполнен

if a[i]=50 then write{i," ");//если число в массиве равно 50, то вывести i(номер этого элемента)

end.

если что то через //пишется комментарий и компилятор игнорирует все что в этой строке написано

Отдельное спасибо удобному редактору, который перемешал куски текста, поэтому могут быть опечатки которые я не заметил

Answer 2

Конечно, я могу помочь с этим. Вот пример кода на языке Pascal, который заполняет массив из 10 случайных чисел и выводит номера всех элементов, равных 50:

pascalCopy code
program FindNumber;

var
  numbers: array[1..10] of integer;
  i: integer;

begin
  Randomize;

  // Заполняем массив случайными числами
  for i := 1 to 10 do
    numbers[i] := Random(100);  // Генерируем случайное число от 0 до 99

  // Выводим номера элементов, равных 50
  for i := 1 to 10 do
  begin
    if numbers[i] = 50 then
      writeln('Номер элемента, равного 50: ', i);
  end;

  readln;
end.

Приведенный выше код создает массив numbers из 10 случайных целых чисел от 0 до 99. Затем происходит поиск элементов, равных 50, и выводятся их номера.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.