Question

Как вывести значения чтобы получилось 2,5 и 8? Даю 50 баллов

Answer 1

var

 n, i: integer;

begin

 var a: array[1..10] of integer := (10, 50, 1, 3, 50, 14, 21, 50, 10, 21);

 i := 0;

 repeat

   i += 1;

   if a[i] = 50 then Writeln(i)

 until (i >= 10);

end.