Question

Даю 100 баллов. Срочно. По информатике в паскале сделать программу: Новогодний подарок состоит из 10 коробочек в одной из них пятерка , узнать в какой коробке находится пятерка?Короче создать массив из 10 элементов и узнать в котором из них пятерка?

Answer 1

Ответ:

program Korobki;

var

 a: array [1..10] of integer;

 i: integer;

begin

 { Считываем 10 значений в массив }

 for i := 1 to 10 do

     readln(a[i]);

 

 { Ищем 5, если находим, то пишем его индекс }

 for i := 1 to 10 do

   if a[i] = 5 then

       write(i);

end.

Объяснение:

Answer 2

Для решения данной задачи вам потребуется создать массив из 10 элементов и определить, в каком из них находится число 5. В языке программирования Pascal это можно сделать следующим образом:

program NewYearGift;
var
  gift: array[1..10] of Integer;
  i: Integer;
begin
  for i := 1 to 10 do
  begin
    // Заполняем массив случайными числами от 1 до 10
    gift[i] := Random(10) + 1;
  end;

// Выводим содержимое массива
  writeln('Содержимое подарка:');
  for i := 1 to 10 do
  begin
    write(gift[i], ' ');
  end;
  writeln;

// Ищем пятерку в массиве
  for i := 1 to 10 do
  begin
    if gift[i] = 5 then
    begin
      writeln('Пятерка находится в коробке номер ', i);
      break;
    end;
  end;
end.

В этой программе мы создаем массив `gift` из 10 элементов и заполняем его случайными числами от 1 до 10. Затем мы выводим содержимое массива и ищем число 5 в массиве. Если находим, выводим номер коробки, в которой находится пятерка.

Примечание: В данном случае мы используем функцию `Random(10) + 1`, чтобы получить случайное число от 1 до 10. Если вам нужно ввести числа вручную, вы можете изменить эту часть кода.

Пожалуйста, обратите внимание, что язык программирования Pascal не является основным языком программирования для разработки в настоящее время, и его использование ограничено. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!