Дан массив А ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов АК которые удовлетворяют неоавенству АК<А10. Если таких элементов нет, вывести 0

Question

Информатика

Вацлава

17 июля, 20:32

Дан массив А ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов АК которые удовлетворяют неоавенству АК<А10. Если таких элементов нет, вывести 0

+1

Ответы (1)

Знаете ответ на вопрос?

Галюша · Answer 1

Var

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

i, n:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (10) + 1;

write (a[i],'; ') ;

end;

for i:=1 to 9 do

if a[i]
begin

n:=i;

break;

end;

writeln;

write ('Ответ: ') ;

if n>0 then writeln (a[n]) else writeln (n) ;

end.