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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

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

По результатам работы программы заполните таблицу, закрасив (маркером) ячейки с найденными элементами:

А[1] = А[4] = А[7] = А[10] =

А[2] = А[5] = А[8] = А[11] =

А[3] = А[6] = А[9] = А[12] =

program s4_v1_10;

var

a: array[1..12] of integer;

i: integer;

begin

writeln(taskввод массиваtask);

randomize;

for i := 1 to 12 do

begin

a[i] := random(10) + 1;

write(a[i], task, task)

end;

writeln;

for i := 1 to 12 do

if a[i] = i then writeln(taska[task, i, task]=task, a[i])

end.