Уровень b. напишите программу, которая заполняет массив из n = 10 элементов случайными числами в диапазоне [-10,10], выводит его на экран, а затем находит индекс последнего элемента, равного введённому числу x. программа должна вывести ответ «не найден», если в массиве таких элементов нет.пример: массив: -5 -6 2 3 -3 0 8 -3 0 9что ищем: 0a[9] = 0на паскале(старая версия)
Примерно так:
program Poisk;
const
N = 10;
type
mas = array [-10..N] of integer;
var
a: mas;
x: integer;
i: integer;
begin
readln (x);
for i := 1 to x do
a[i] := random (10);
for i := 1 to x do
begin
if (a[i] = 0) then
writeln ('a',i,' := ',a[i])
else
writeln ('Такого индекса нету');
end;
end.