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.

Объяснение: