Некоторые примеры решения задач на массивы

Пусть описан массив a следующим образом:

Var a: array [1.10] of integer;

Пример 1. Найти сумму элементов, больших трех. Эта задача отличается от задачи нахождения суммы тем, что перед добавлением элемента массива в сумму нужно проверить, является ли он числом, большим трех, или нет.

Соответствующий фрагмент программы:

S:=0;

For i:=1 to 10 do if a[i]>3 then s:=s+a[i];

Writeln (s);

Текст программы:

Program z2;

Var a: array [1.10] of integer;

i, s: integer;

begin.

for i:=1 to 10 do readln (a[i]);

s:=0;

for i:=1 to 10 do if a[i]>3 then s:=s+a[i];

writeln (s).

end.

Пример 2. Найти произведение четных элементов. Аналогично предыдущей задаче, эта задача отличается от нахождения произведения всех элементов массива только тем, что перед умножением произведения p на текущий элемент нужно проверить, является ли он четным. И если является, то умножать на него переменную p, если же нет, то не умножать.

Соответствующий фрагмент программы:

p:=1;

For i:=1 to 10 do if a[i] mod 2 =0 then p:=p*a[i];

Writeln (p);

Текст программы:

Program z5;

Var a: array [1.10] of integer;

i, p: integer;

begin.

for i:=1 to 10 do readln (a[i]);

p:=1;

for i:=1 to 10 do if a[i] mod 2 =0 then p:=p*a[i];

writeln (p).

end.

Пример 3. Найти количество элементов, принадлежащих промежутку (2; 10]. Введем переменную k, отвечающую за количество нечетных элементов. В данном случае перебираем все элементы массива и если находим элемент из промежутка (2; 10], добавляем к переменной k единицу (то есть мы указываем, что найден еще один элемент массива, удовлетворяющий условию задачи).

Соответствующий фрагмент программы:

k:=0;

for i:=1 to 10 do if (a[i]>2)and (a[i]<=10) then k:=k+1;

writeln (k).

Текст программы:

Program z6;

Var a: array [1.10] of integer;

i, k: integer;

begin.

for i:=1 to 10 do readln (a[i]);

k:=0;

for i:=1 to 10 do if (a[i]>2)and (a[i]<=10) then k:=k+1;

writeln (k).

end.

Пример 4. Найти минимальный элемент в массиве и его порядковый номер (то есть его нахождение в массиве). Введем дополнительную переменную, допустим k, в которой хранится номер минимального элемента.

о есть изначально за минимум возьмем первый элемент массива, и укажем, что номер минимального элемента — первый.

(Min:=a[1]; k:=1;).

Затем перебираем все оставшиеся элементы массива, (for i:=2 to 10 do) и, как только найдем элемент, меньший того элемента, который на данный момент является минимальным элементом среди предыдущих элементов массива (if a[i].

Min:=a[1]; k:=1;

For i:=1 to 10 do if a[i] begin

Min:=a[i];

K:=i;

end;

Текст программы:

Program z7;

Var a: array [1.10] of integer;

i, min, k: integer;

begin.

for i:=1 to 10 do readln (a[i]);

Min:=a[1]; k:=1;

For i:=1 to 10 do if a[i]>max then.

begin.

min:=a[i];

k:=i;

end;

end.

Пример 5. На протяжении всего апреля каждые сутки в полдень измеряется температура в городе. Определить среднюю температуру морозных дней в апреле.

Составим программу, используя массивы. Фактически нужно ввести массив, состоящий из тридцати элементов, найти в нем сумму и количество отрицательных элементов, после чего найти среднее значение.

Program z8;

Var t: array [1.30] of real;

sum, srt: real;

i, k: integer;

Begin sum:=0;

k:=0;

for i:=1 to 30 do.

Begin write (`Введите температуру за `, i, `-е апреля `);

readln (t[i]);

end;

for i:=1 to 30 do If t[i]<0 then.

Begin sum:=sum+t[i];

k:=k+1;

end;

srt:=sum/k;

writeln (`Средняя температура морозных дней в апреле `, srt:10:2).

end.

Пример 2. В условиях предыдущей задачи определить максимальную температуру за апрель. Здесь задача сводится к вводу массива и к нахождению в нем максимального элемента.

Program z9;

Var t: array [1.30] of real;

max: real;

i: integer;

Begin for i:=1 to 30 do.

Begin write (`Введите температуру за `, i, `-е апреля `);

readln (t[i]);

end;

max:=t[i];

for i:=2 to 30 do If t[i]>max then max:=t[i];

writeln (`Максимальная температура в апреле `, max:10:2).

end.