Решение задач на программирование массивов

Решение задач на программирование массивов

Требуется создать массив из N случайных целых чисел.

Решение. При отработке технических навыков программирования важно в тексте программы числовые константы в явном виде. Всем таким константам должны быть даны имена в блоке const.

const N = 10;

{количество элементов массива}

MAX_V = 15;

{диапазон случайных чисел}

var m: array[1..N] of integer;

i: integer;

begin

randomize;

for i := 1 to N do

{создание и вывод элементов массива}

begin

m[i] := random(MAX_V);

writeln('m[i]=',m[i])

end

end.

1. Из элементов массива А сформировать элементы массива B по правилу:

b[i] := а[1] + а[2] + ... + а[i].

Замечание. Для решения этой задачи не надо использовать вложенные циклы. Ниже приведен фрагмент программы.

b[1] := а[1];

for i := 2 to n do b[i] := b[i - 1] + а[i];

2. Ввести с клавиатуры n чисел и распечатать их в обратном порядке.

Замечание. Поскольку необходимо хранить в памяти введенные значения, то данные организуются в массив. Для решения задачи массив переписывать в обратном порядке не надо, для печати элементов в обратном порядке достаточно использовать оператор цикла

for i := n downto 1 do write(a[i]:4).

3. Подсчитать количество четных элементов массива, заданного датчиком случайных чисел.

3. С помощью датчика случайных чисел заполнить двумерный массив A размера n x n числами 1, 4, 7, 10. Подсчитать в нем количество таких четверок

A[i, j], A[i + 1, j], A[i, j + 1], A[i + 1, j + 1],

в которых все элементы различны.

Решение. Искомая четверка элементов должна удовлетворять условию

A[i, j] * A[i + 1, j] * A[i, j + 1] * A[i + 1, j + 1] = 280.

const n = 10;

max_v = 4;

var m: array[1..N, 1..N] of integer;

i, j, k: integer;

begin

randomize;

k := 0;

for i := 1 to n do

{создание и вывод элементов массива}

begin

for j := 1 to n do

begin

m[i,j] := random(max_v) * 3 + 1;

{массив заполняется числами

1, 4, 7, 10}

write(m[i,j]:3)

end;

writeln

end;

for i := 1 to n — 1 do

for j := 1 to n – 1 do

if A[i,j] * A[i + 1,j] *

A[i,j + 1] * A[i + 1,j + 1] = 280

then k := k + 1;

writeln(k)

end.

К данной программе построить блок-схему