Уровень b. напишите программу, которая заполняет массив из n = 10 элементов случайными числами в диапазоне [-10,10], выводит его на экран, а затем находит индекс последнего элемента, равного введённому числу x. программа должна вывести ответ «не найден», если в массиве таких элементов нет.пример: массив: -5 -6 2 3 -3 0 8 -3 0 9что ищем: 0a[9] = 0на паскале(старая версия)
KatePie
3
05.10.2019 10:30
71
Другие вопросы по теме Информатика
Mercedess65amg
28.01.2021 16:53
daniillopunov16
28.01.2021 16:54
elkilk
23.06.2019 01:00
damiramirov321
23.06.2019 01:00
yasasmail
23.06.2019 01:00
dashkevich672
09.06.2019 13:10
agg1
09.06.2019 13:10
камилла326
09.06.2019 13:10
Bog5635545
09.06.2019 13:10
Популярные вопросы
- Нужен мини твир на тему: краса осиннього миста! нужно!...
3 - (x+57): 7=12 (161-y): 16=9 112: (17+x)=4...
2 - Наблюдения в природе осенью. только не...
3 - Колесо имеет 5 спиц. найдите величину угла, который образуют две...
2 - Обведи иллюстрации разными цветами памятники архитектуры- красным...
3 - Разобрать по составу слово просмотор...
1 - Одна из сторон прямоугольника больше другой на 5см, а периметр...
3 - Проверочные слова к словам замарашка , борода,плоховато,ловушка,вспоминал,река,скользит,сокращение,стонут,земля...
2 - Как правильно писать утрение или утренние...
2 - При умножении каких чисел получиться то же самое число, что и при...
3
Примерно так:
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.