Поиск элементов массива с заданными свойствами
Примеры решения задач
Пример 9.3
Составить программу, которая формирует массив из 15 случайных целых чисел от 0 до 50 и выводит на экран нечетные элементы массива и их индексы.
Program Primer9_3;
Var A: array[1..15] of integer;
Begin
{Формирование массива}
for var i:= 1 to 15 do
A[i]:=random(51);
Writeln('Исходный массив: ');
{Вывод всех чисел}
for var i:=1 to 15 do write(a[i]:4);
Writeln; {Переход на новую строку}
Writeln('Нечетные элементы массива: ');
for var i:=1 to 15 do {Просмотр массива}
if A[i] mod 2 = 1 {Проверка на нечетность}
then writeln('Найден элемент A[', i,'] = ', A[i]); {Вывод нечетных чисел}
End.
Array71
Дан массив размера N. Поменять порядок его элементов на обратный.
uses PT4;
var
a, b: array [1..50] of real;
n: integer;
begin
Task('Array71');
{ввод элементов массива}
Read(n);
for var i := 1 to n do
read(a[i]);
{формирование нового массива}
for var i := 1 to n do
b[n + 1 - i] := a[i];
{вывод массива}
for var i := 1 to n do
write(b[i]);
end.
Задания
Задание 1
Задача 1
Составить программу по предложенному графическому алгоритму. Что определяется в этом алгоритме. (Записать в комментариях к программе)
Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_9_1.pas.
Задание 2
Расставьте команды приведенной ниже программы так, чтобы получилось решение задачи Array79 из электронного задачника.
Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_9_2.pas.
Программа
for var i := 1 to n do write(a[i]); n: integer; read(n); uses PT4; begin Task('Array79'); for var i := n downto 2 do a[i] := a[i - 1]; end. for var i := 1 to n do read(a[i]); a: array [1..20] of real; var a[1] := 0;
Задание 3
Задача 3
Сформировать массив из 20 случайных чисел от -50 до 30. Найти сумму положительных элементов массива. Вывести исходный массив и искомую сумму.
Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_9_3.pas.
Алгоритм нахождения суммы положительных элементов массива:
После заполнения массива присваиваем переменной sum (в ней будет храниться сумма) значение 0.
Используя цикл for, начинаем перебирать элементы массива с первого до последнего.
В цикле с помощью условного оператора if проверяем, больше ли текущий элемент массива нуля.
Если это так то добавляем его значение к переменной sum.
После завершения цикла выводим значение sum на экран. Оно обозначает сумму только положительных элементов массива.
Задание 4
Скопируйте и измените текст программы Program Primer9_3 из вышележащего примера для получения решения задачи 4.
Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_9_4.pas.
Задача 4
Составьте программу, которая формирует массив из шестнадцати случайных целых чисел от –20 до 20 и:
а) находит элементы с нулевыми значениями;
б) находит индексы четных элементов;
в) подсчитывает количество отрицательных элементов;
г) определяет, есть ли в этом массиве хотя бы одно число, кратное трем;
д) находит в этом массиве индексы элементов, значения которых кратны трем.
На экран выводятся исходный массив и найденные элементы.