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

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

3. Напишите программу. Заполните массив А из 15 элементов случайными целыми числами, принадлежащими промежутку [О, 100), и выведите его на печать.

По результатам выполнения программы заполните таблицу:

А[1] = А[5] = А[9] = А[13] =

А[2] = А[6] = А[10] = А[14] =

А[3] = А[7] = А[11] = А[15] =

А[4] = А[8] = А[12] =

program s4_v1_3;

var

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

i: integer;

begin

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

randomize;

for i := 1 to 15 do

a[i] := random(100);

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

for i := 1 to 15 do

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

end.