Program n_5; var i, n, x: integer; a: array [1..10] of integer; begin randomize; for i : = 1 to 10 do begin a[i] : = random(100); writeln ('a[', i,']=', a[i]) end; writeln ('x='); readln (x) ; n : = 0; for i : = 1 to 10 do if a[i] = x then n : = i; if n = 0 then writeln ('элемента со значением, равным заданному, в массиве нет') else writeln ('индекс элемента, равного заданному, ', n) end.

Doneore    2   03.10.2019 19:10    7