Напишите программу на паскаль заполните массив случайными числами в интервале [0, 5]. введите число x и найдите все значения равные x

Var  a: array[1..5] of integer;           x, i: integer; begin    for i : = 1 to 5 do      begin          a[i] : = random(5);         write(a[i],' ');     end;   writeln('введите x');   readln(x);   for i : = 1 to 5 do      if a[i] = x then writeln('иксу равен ', i, '-ый элемент массива'); end.

По всей видимости, нужно объяснить что выведет данная давай анализировать и разбираться. мы создаем целочисленную переменную n, которую потом в цикле будем наращивать на "1". такие переменные называют "счетчик" далее, создаем переменную s, равную 512, и пока она больше или равна нулю, мы отнимаем от нее "20".  посчитаем, сколько раз нужно отнять 20 от 512, чтобы получилось число меньше нуля: 512 / 20 = 25 и +"1" = 26, т.к. условие содержит "=". 26 раз мы увеличим переменную n, это и будет наш ответ

3d-моделирование - создание 3д моделей, ландшафтов, проектирование зданий, расчет -технолог обработка фотографий - рисование картин с графического редактора, изменение фотографий нанотехнолог инженер-конструктор - работа с autocad web-дизайнер инженер по  телекоммуникациям и  связи инженер по контрольно-измерительным приборам и автоматике (кипиа) режиссёр монтажа аудитор укладчик текста  - это например при заснятом ролике для музыки, он текст выравнивает, чтобы было похоже, что он (она) и в правду поет танцуя например билетный кассир бухгалтер - ревизор бухгалтер робототехник диспетчер по центровке самолетов гейм-дизайнер трейдер ит-директор линк-менеджер думаю хватит на