Заполнение массива. работа с массивом. no13 1. дан массив а(10 заполнить элементы массива числом 7. 2. дан массив а (10). заполнить элементы массива квадратами индексов. 3. дан массив а(25). заполнить элементы массива, индексы которых оканчиваются на 3, значениями индексов, уменьшенных на 3, остальные оставить без изменений. 4. заполнить массив a[10] случайными целыми числами в диапазоне от -10 до 25. заменить все отрицательные числа максимальным числом массива.​

Характеристика моего компьютера.

Имя объекта - компьютер. (от английского computer)

Функции объекта - Хранение, обработка и анализ данных.

Элементный состав компьютера -

Основные:

1) Монитор.

2) Клавиатура.

3) Компьютерная мышь.

4) Системный блок.

5) Колонки.

Дополнительные:

1) Веб-камера.

2) Съёмные ОЗУ-накопители.

3) Съёмные накопители.

4) Наушники.

Свойства элементов - элементный состав компьютера выполняет множество свойств, к примеру монитор необходим для того, чтобы выводить графическую или текстовую информацию. Мышь - для управления объектами на рабочем столе. (Ярлыками, папками, документами) Клавиатура - для ввода данных в сам компьютер. Колонки необходимы для вывода звука. Системный блок выполняет функцию опоры всего элементного состава компьютера.

//Я так понял, что нужно объеденить 2 массива в 1 большой. Если же нужно, чтобы каждый элемент третьего массива состоял из суммы элементов с такии же индексом двух предыдущих массивов, то нужен другой код

Program Test;

const Size = 5; x = 1; y = 10;

Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;

Begin

Randomize;

j := 0;

for i := 1 to Size do
begin
Arr1[i] := Random(x, y);
Arr2[i] := Random(x, y);
end;

for i := 1 to Size * 2 do
begin
if (i <= Size) then
Arr3[i] := Arr1[i]

else
begin
j := j + 1;
Arr3[i] := Arr2[j];
end;
end;

Write('Показать 1 массив? Если да, то введи 1: ');
Readln(Entered);

if (Entered = 1) then
begin
Writeln();

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr1[i]);
end;

Writeln();
Entered := 0;

Write('Показать 2 массив? Если да, то введи 2: ');
Readln(Entered);

if (Entered = 2) then
begin
Writeln();

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr2[i]);
end;

Writeln();
Writeln('Суммарный массив:');
Writeln();

for i := 1 to Size * 2 do
Writeln('Элемент ', i, ' = ', Arr3[i]);

End.