Поиск элементов массива с заданными свойствами

Примеры решения задач

Пример 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.

Алгоритм нахождения суммы положительных элементов массива:

  1. После заполнения массива присваиваем переменной sum (в ней будет храниться сумма) значение 0.

  2. Используя цикл for, начинаем перебирать элементы массива с первого до последнего.

  3. В цикле с помощью условного оператора if проверяем, больше ли текущий элемент массива нуля.

  4. Если это так то добавляем его значение к переменной sum.

  5. После завершения цикла выводим значение sum на экран. Оно обозначает сумму только положительных элементов массива.

Задание 4

Скопируйте и измените текст программы Program Primer9_3 из вышележащего примера для получения решения задачи 4.

Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_9_4.pas.

Задача 4

Составьте программу, которая формирует массив из шестнадцати случайных целых чисел от –20 до 20 и:

а) находит элементы с нулевыми значениями;

б) находит индексы четных элементов;

в) подсчитывает количество отрицательных элементов;

г) определяет, есть ли в этом массиве хотя бы одно число, кратное трем;

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

На экран выводятся исходный массив и найденные элементы.