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

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

2. Напишите программу. Заполните массив А из 20 элементов по формуле А[і] = i^2 и распечатайте в столбец все его элементы в виде: = .

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

A[1] = А[6] = А[11] = А[16] =

А[2] = А[7] = А[12] = А[17] =

А[3] = А[8] = А[13] = А[18] =

А[4] = А[9] = А[14] = А[19] =

А[5] = А[10] = А[15] = А[20] =

program s4_v1_2;

var

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

i: integer;

begin

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

for i := 1 to 20 do

a[i] := i * i;

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

for i := 1 to 20 do

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

end.