Question

НАПИСАТЬ 2 ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ! 30 БАЛЛОВ

1. Дан первый элемент массива В, вычисленный случайным образом. Сформировать массив В(15) в котором каждый последующий элемент массива больше предыдущего на удвоенный порядковый номер искомого элемента. Вывод ответа осуществить в столбец.

2. Дана таблица К(7,5), вывести её на экран. Заполнить её случайными числами. Найти сумму элементов этой таблицы, значения которых больше 15.​

Answer 1

Пример решения первой задачи на языке Pascal:

```
program task1;
var
B: array[1..15] of integer;
firstElement, i: integer;
begin
// Ввод первого элемента
writeln('Введите первый элемент массива: ');
readln(firstElement);

// Формирование массива
B[1] := firstElement;
for i := 2 to 15 do
B[i] := B[i-1] + 2*(i-1);

// Вывод массива
writeln('Массив B(15): ');
for i := 1 to 15 do
writeln(B[i]);
end.
```

Пример решения второй задачи на языке Pascal:

```
program task2;
const
ROWS = 7;
COLS = 5;
var
K: array[1..ROWS, 1..COLS] of integer;
i, j, sum: integer;
begin
// Заполнение таблицы случайными числами
for i := 1 to ROWS do
for j := 1 to COLS do
K[i,j] := Random(20); // Генерация чисел от 0 до 19

// Вывод таблицы на экран
writeln('Таблица K(7,5): ');
for i := 1 to ROWS do begin
for j := 1 to COLS do
write(K[i,j]:3);
writeln;
end;

// Подсчет суммы элементов > 15
sum := 0;