Задание 10 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

1. Напишите программу, осуществляющую поиск всех элементов массива $$A$$ из $$12$$ элементов, значения которых совпадают с индексом. Исходный массив заполните случайными целыми числами, принадлежащими промежутку $$[1, 11)$$. Выведите на печать все элементы массива $$A$$ в строку и найденные — в столбец. По результатам работы программы заполните таблицу, закрасив маркером ячейки с найденными элементами.

Нужно перебрать все элементы массива из 12 чисел, вывести весь массив в строку, а затем отдельно напечатать те элементы, у которых значение совпадает с индексом.

Так как элементы массива случайные и лежат в промежутке $$[1;11)$$, то каждый элемент принимает значения от 1 до 10.

program s4_v1_10;
var
  a: array[1..12] of integer;
  i: integer;
begin
  writeln(‘ввод массива’);
  randomize;
  for i := 1 to 12 do
  begin
    a[i] := random(10) + 1;
    write(a[i], ‘, ‘)
  end;
  writeln;
  for i := 1 to 12 do
    if a[i] = i then writeln(‘a[‘, i, ‘]=’, a[i])
end.

По результатам работы программы в таблице нужно закрасить те ячейки, где выполняется условие $$A[i] = i$$. Для данного варианта это ячейки:

• $$A[4] = 4$$
• $$A[7] = 7$$
• $$A[10] = 10$$

Остальные элементы массива не совпадают со своими индексами.

Ответ

Найденные элементы: $$A[4]$$, $$A[7]$$, $$A[10]$$.