Предмет: Информатика,
автор: varmilawilliams
НАПИСАТЬ 2 ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ! 30 БАЛЛОВ
1. Дан первый элемент массива В, вычисленный случайным образом. Сформировать массив В(15) в котором каждый последующий элемент массива больше предыдущего на удвоенный порядковый номер искомого элемента. Вывод ответа осуществить в столбец.
2. Дана таблица К(7,5), вывести её на экран. Заполнить её случайными числами. Найти сумму элементов этой таблицы, значения которых больше 15.
Ответы
Автор ответа:
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;
```
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;
varmilawilliams:
Что такое firstElement? Может его заменить можно? Не помню чтобы мы такое писали
Похожие вопросы
Предмет: Литература,
автор: sofikosthekokosss
Предмет: Химия,
автор: SLAYGUEL
Предмет: Українська література,
автор: Zavalii062
Предмет: Английский язык,
автор: tocica2
Предмет: Химия,
автор: iasmina078