Читайте также:
|
1)
Входные данные:
N= 20
Исходный массив A:
Выходные данные:
В массиве всего 3 серии из двух троек
массив A после изменения:
2)
Входные данные:
N= 10
Исходный массив A:
Выходные данные:
В массиве нет серий из двух троек
массив A после изменения:
Блок-схема
Листинг программы на Pascal
program ABC;
const Nmass=100;
var A:array[1..Nmass] of integer;
N,i,k,Imax,Imin: byte;
buf:integer;
begin
cls;
//ручной ввод массива
writeLn('Введите число элементов в массиве A');
readLn(N);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
//вывод массива до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
write(A[i]:5);
writeLn;
// определение серий троек
k:=0;
for i:=1 to N-1 do
if (A[i]=3) and (A[i+1]=3) then
k:=k+1;
// проверка условия наличия серий троек
if k=0 then
begin
WriteLn('В массиве нет серий из двух троек');
//если троек нет, то k=0,
//потому обнуляем минимум
//среди элементов стоящих на нечётных местах
Imin:=1;
for i:=1 to N do
if (A[i]<A[Imin]) and (i mod 2=0) then
Imin:=i;
A[Imin]:=0;//собственно, обнуление
end
else
begin
WriteLn('В массиве всего ',k,' серий из двух троек');
//если k>0, то ищем максимум
//среди элементов после A[k]
Imax:=k+1;
for i:=k+1 to N do
if A[i]>A[Imax] then
Imax:=i;
//замена в 3 действия
buf:=A[1];
A[1]:=A[Imax];
A[Imax]:=buf;
end;
//вывод массива поле измененния
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
write(A[i]:5);
end.
Список задач для лабораторной работы «Одномерные массивы»
1. Ввести одномерный массив 
, вывести его. Найти номер первого отрицательного элемента. Все положительные элементы, следующие за первым отрицательным увеличить на модуль суммы отрицательных всего массива.
2. Ввести одномерный массив целых чисел, вывести его. Найти произведение первых трёх отрицательных элементов. Произведением заменить все нечетные элементы, если это невозможно, то сообщить об этом.
3. Ввести одномерный массив , вывести его. Найти наибольший элемент среди тех, которые находятся на нечетных позициях. На полученное значением уменьшить элементы с чётными индексами массива.
4. Ввести одномерный массив , вывести его. Найти среднее арифметическое 
максимума и минимума массива. Далее возвести в квадрат все элементы меньшие чем .
5. Ввести одномерный массив , вывести его. Найти произведение его элементов, принадлежащих интервалу 
. Значением этого произведения заменить первый и предпоследний элементы массива.
6. Ввести одномерный массив целых чисел, вывести его, определить 
– количество чётных элементов в нём содержащихся. Далее максимальный элемент массива домножить на и снова вывести.
7. Ввести одномерный массив , вывести его. Найти произведение элементов стоящих слева и справа от минимального элемента массива. Разделить на найденное произведение минимум и максимум. Изменённый массив вывести.
8. Ввести одномерный массив , вывести его. Определить максимальный или минимальный элемент в массиве встречается раньше. Если максимальный, то заменить минимумом первый элемент массива, если встречается раньше минимальный, то заменить максимумом последний элемент массива.
9. Ввести одномерный массив , вывести его. Определить упорядочены ли элементы массива по возрастанию. Если не упорядочены, то поменять в массиве первый и последний элементы массива, иначе эти элементы возвести в квадрат.
10. Ввести одномерный массив , вывести его. Определить упорядочены ли элементы массива по убыванию. Если не упорядочены, то определить номер первого элемента нарушающего порядок и поменять его с соседним элементом, иначе возвести в квадрат первый и последний элементы массива.
11. Ввести одномерный массив , вывести его. Определить упорядочены ли элементы массива по возрастанию. Если не упорядочены, то определить номер первого элемента нарушающего порядок, сам этот элемент обнулить, иначе поменять местами максимум и минимум в массиве.
12. Ввести одномерный массив , состоящий из целых чисел, вывести его. Найти номер – номер первого четного элемента массива. Преобразовать последние элементов массива путём их умножения на значение первого чётного. Если преобразование не возможно, то вывести соответствующее сообщение.
13. Ввести одномерный массив , вывести его. Вычислить 
– среднее геометрическое положительных элементов массива. Преобразовать элементы массива путём деления на тех из них, значение которых меньше квадрата собственного индекса. Если преобразование невозможно, то выдать соответствующее сообщение.
14. Ввести одномерный массив , вывести его. Вычислить разность между суммой элементов, стоящих на четных местах, и суммой элементов, стоящих на нечетных местах. На полученную разность увеличить вторую половину массива.
15. Ввести одномерный массив , вывести его. Наибольший и наименьший элементы увеличить в три раза, а все остальные – в два раза. Исходный массив и преобразованный распечатать один под другим.
16. Ввести одномерный массив , вывести его. На место минимального элемента массива записать сумму последних трёх ненулевых элементов массива. На экран вывести массив после преобразования, или сообщение о невозможности модификации.
17. Ввести одномерный массив , вывести его. Найти максимальный и минимальный по модулю элементы массива. Если модуль максимального элемента превышает значение модуля минимального более чем на 10, то увеличить положительные элементы всего массива на значение модуля максимума, иначе уменьшить их на это значение.
18. Ввести одномерный массив , вывести его. Найти сумму положительных кратных трём элементов массива и произведение отрицательных элементов. Если сумма окажется больше произведения, то найти максимальный элемент массива, а если нет – выдать об этом сообщение.
19. Ввести одномерный массив , вывести его. Если в нём больше отрицательных чисел, все положительные числа заменить суммой отрицательных, если больше неотрицательных чисел, то поменять местами первый и последний неотрицательные элементы.
20. Ввести одномерный массив , вывести его. Напечатать номера элементов, значение которых менее чем на 3 отличается от значения наименьшего элемента массива, и определить количество таких элементов.
21. Ввести одномерный массив , вывести его. Найти максимальный элемент среди элементов, стоящих на чётных местах, и найденным значением заменить все элементы массива, кратные 3 или 2. Преобразованный массив вывести на экран.
22. Ввести одномерный массив , вывести его. Вычислить квадрат разности между минимальным и максимальным элементами массива и записать его на место предпоследнего элемента массива, а также на место максимума и минимума. Результат вывести на экран.
23. Ввести одномерный массив , вывести его. Определить количество cмен знака (
) для его элементов. Если 
, то все элементы после 
заменить значением квадратом разностей между первым и минимальным элементами массива.
24. Ввести одномерный массив , вывести его. Найти максимум среди элементов первой половины массива и минимум среди второй половины массива, которые поменять местами.
25. Ввести одномерный массив , вывести его. Найти минимум среди элементов первой половины массива и максимум среди второй половины. Вычислить произведение найденных значений и заменить им элемент, стоящий перед найденным минимальным элементом. Если такого элемента нет, то выдать соответствующее сообщение.
26. Ввести одномерный массив , вывести его. Вычислить сумму отрицательных элементов этого массива. Записать её модуль на место элемента, стоящего после максимального. Если такого элемента нет, то выдать сообщение. Результат вывести на экран.
27. Ввести одномерный массив , вывести его. Проверить, имеется ли в массиве, хотя бы одна пара соседних чисел, являющихся противоположными. Если имеется, то поменять местами первую встретившуюся такую пару.
28. Ввести одномерный массив , вывести его. Выяснить, какое число в массиве встретится ранее – положительное или отрицательное (нули не рассматривать). Если положительное – найти в массиве максимальный элемент и возвести его в квадрат, если отрицательное – возвести в квадрат минимальный элемент.
29. Ввести одномерный массив , вывести его. Вычислить наибольшее и наименьшее значения разности между соседними элементами. Найденными значениями заменить, соответственно, первый и последний элементы массива.
30. Ввести одномерный массив , вывести его. Определить, есть ли в массиве три идущих подряд положительных элемента. Если есть, то заменить первую тройку этих элементов значением произведения последнего и предпоследнего элементов.
Дата добавления: 2015-07-11; просмотров: 240 | Нарушение авторских прав