Массивы. Основные операции




Цель работы:

− Описание регулярных типов;

− Ввод/вывод массивов;

− Обработка элементов массива.

Содержание лабораторной работы

Пример 1. Дан массив целых чисел. Найти количество четных элементов, расположенных в нечетных позициях.

Type mas = array [1..10] of integer;

Var a: mas; i, n, k: integer;

begin

Readln (n);

For i:=1 to n do

readln(a[i]);

K:=0;

For i:=1 to n do

if (i mod 2<>0) and (a[i] mod 2 = 0) then k:=k+1;

Writeln(k);

End.

Пример 2. Дан массив целых чисел. Найти максимальный четный элемент.

max:=1;

For i:=1 to n do

Begin

if (max=1) and (a[i] mod 2 = 0) then max:=a[i];

if (a[i]>max) and (a[i] mod 2 = 0) then max:=a[i];

end;

Writeln(max);

End.

Пример 3. Дан массив целых чисел. Верно ли, что массив упорядочен по возрастанию.

f:=true;

For i:=1 to n-1 do

if (a[i]>a[i+1]) then f:=false;

Writeln(f);

End.

Задания для самостоятельной работы

1. Дан массив целых чисел. Найти количество положительных элементов, расположенных на позициях не кратных 3.

2. Дан массив целых чисел. Найти сумму элементов, у которых последняя и предпоследняя цифры равны.

3. Дан массив целых чисел. Заменить отрицательные элементы на сумму индексов двузначных элементов массива.

4. Дан массив целых чисел. Найти количество пар соседних элементов, где первый элемент вдвое больше второго.

5. Дан массив целых чисел. Верно ли, что массив является знакочередующимся.

6. Дан массив целых чисел. Верно ли, что массив является симметричным.

7. Дан массив целых чисел. Если массив упорядочен по возрастанию, то увеличить все элементы, расположенные на четных позициях вдвое. Иначе заменить отрицательные элементы с последней цифрой 5 своими квадратами.

Домашние задания

1. Дан массив целых чисел. Верно ли, что массив является убывающим по значениям модулей элементов.

2. Дан массив целых чисел. Если массив является несимметричным, то все отрицательные элементы заменить значением минимального элемента.

3. Дан массив различных целых чисел. Если массив упорядочен по убыванию, то заменить кратные 5 элементы индексом максимального элемента. Иначе увеличить все отрицательные элементы на максимальный среди четных значений элемент.

4. Дан массив целых чисел. Если в массиве все элементы больше заданного числа, то найти среднее арифметическое всех элементов. Иначе найти среднее арифметическое только четных элементов.

5. Дан массив целых чисел. Если в массиве хотя бы один элемент положительный, то в каждом четном элементе поменять местами последнюю и предпоследнюю цифры.

6. Дано два упорядоченных по возрастанию массива целых чисел. Получить третий упорядоченный массив – слияние двух исходных, не используя сортировки.

Лабораторная работа №7

Массивы. Сложная обработка

Цель работы:

− Обработка в массиве элементов со сложными свойствами;

 

Содержание лабораторной работы

Пример 1. Дан массив целых чисел. Верно ли, что массив содержит простые элементы.

K:=0;

For i:=1 to n do

begin

f:=true;

For j:=1 to a[i]-1 do

if (a[i] mod j = 0) then f:=false;

if f then k:=k+1;

if k=0 then Writeln(‘не содержит’) else writeln(‘содержит’);

End.

Пример 2. Дан массив целых чисел. Заменить элементы с четной суммой цифр нулями.

For i:=1 to n do

begin

x:=a[i]; s:=0;;

while x<>0 do

begin

s:=s+ x mod 10;

x:= x div 10;

end;

if s mod 2 = 0 then a[i]:=0;

For i:=1 to n do

Writeln(a[i]);

End.

Задания для самостоятельной работы

1. Дан массив целых чисел. Найти сумму непростых элементов, расположенных на простых позициях.

2. Дан массив целых чисел. Найти произведение элементов, в записи которых нет нулей.

3. Дан массив целых чисел. Заменить на максимальный элемент все элементы, у которых число четных делителей больше двух.

4. Дан массив целых чисел. Увеличить все элементы, в записи которых только цифры «2», «3» и «5» на количество совершенных элементов массива.

5. Дан массив целых чисел. Найти сумму элементов, являющихся числами Фибоначчи и расположенных на четных позициях.

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

Домашние задания

1. Дан массив целых чисел. Заменить все непростые элементы, расположенные на позициях кратных 3 своими квадратами.

2. Дан массив целых чисел. Найти сумму элементов, количество цифр которых четно.

3. Дан массив целых чисел. Найти произведение индексов совершенных элементов.

4. Дан массив целых чисел. Уменьшить все элементы – числа Фибоначчи на значение индекса.

5. Дан массив целых чисел. Найти количество элементов, у которых все цифры одинаковые.

6. Дан массив целых чисел. Поменять местами первый простой элемент с последним элементом, в записи которого более одной цифры «7».

Лабораторная работа №8



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2017-10-12 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: