Задание 10 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
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.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
