Уровень B. Напишите программку, которая заполняет массив из N = 10 частей

Уровень B. Напишите программку, которая наполняет массив из N = 10 элементов случайными числами в спектре [-10,10], выводит его на экран, а потом обретает индекс заключительного элемента, равного введённому числу X. Программка обязана вывести ответ не найден, если в массиве таких частей нет.

Пример:

Массив: -5 -6 2 3 -3 0 8 -3 0 9

Что ищем: 0

A[9] = 0

на паскале(ветхая версия)

Задать свой вопрос
1 ответ

Приблизительно так:

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт