Как найти сумму соседних элементов массива паскаль

uses crt;
var a:array[1..100] of integer;
    n,i,sum,max,i1,i2:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
Writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
max:=a[1]+a[2];i1:=1;i2:=2;
for i:=2 to n do
  begin
   sum:=a[i]+a[i-1];
   if sum>max then
      begin
       max:=sum;
       i1:=i-1;
       i2:=i;
      end;
  end;
writeln('Maximalnaya summa=',max,'  elementy ',a[i1],'+',a[i2]);
readln
end.

Дан массив, содержащий 70 неотрицательных целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшую чётную сумму двух соседних элементов массива. Гарантируется, что в массиве есть соседние элементы с чётной суммой. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

Паскаль	Бейсик
const N=70; var a: array [1..N] of integer; i, j, x, у: integer; begin for i: 1 to N do readln(a[i]); … end.	N=70 DIM A(N) AS INTEGER DIM I, J, X, Y AS INTEGER FOR I=1 TO N INPUT A(I) NEXT I … END
Си++	Алгоритмический язык
#include <iostream> using namespace std; #define N 70 int main(){ int a[N]; int i, j , x, y; for (i = 0; i < N; i++) cin >> a[i]; … }	алг нач цел N=70 целтаб а[1:N] цел i, j, х, у нц для i от 1 до N ввод а[i] кц … кон
Python
# допускается также # использовать три # целочисленные переменные j, x, y a = [] n = 70 for i in range(0, n): a.append(int(input())) …

В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например Free Pascal 2.4) или в виде блок-схемы. В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.

Алгоритмы работы с массивами

1) Сумма элементов массива.

Program symma;

var a: array [1..10] of integer;

i, s : integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

s:=s+a[i];

end;

writeln (‘Сумма= ’,s);

еnd.

2) Сумма положительных чисел.

Program symma2;

var a: array [1..10] of integer;

i, s : integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

if a[i]>0 then s:=s+a[i];

end;

writeln (‘Сумма положительных чисел = ’,s);

еnd.

3) Сумма и количество положительных чисел.

Program symma-kol;

var a: array [1..10] of integer;

i, s,k : integer;

begin

s:=0; k:=0;

for i:=1 to 10 do

if a[i]>0 then begin k:=k+1; s:=s+a[i]; end;

writeln (‘Сумма ’,s, ‘ количество’, k);

еnd.

4) Поиск заданного элемента в массиве.

Найти элементы массива большие числа 5.

Program elem;

var a: array [1..10] of integer;

i : integer;

begin

for i:=1 to 10 do

if a[i]>5 then writeln(a[i]);

Program mm;

var a: array [1..10] of integer;

i, max, min : integer;

begin

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

max:=a[1]; min:=a[1];

for i:=1 to 10 do

begin

if a[i]>max Then max:=a[i];

if a[i]

end;

writeln (‘ max=’,max,’ min=’, min);

еnd.

6) Упорядочение массива

Упорядочение (сортировка) — это расположение значений элементов массива в порядке возрастания или убывания их значений.

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

• 
  вывод массива;
  
• 
  ввод массива;
  
• 
  поиск в массиве заданного элемента;
  
• 
  поиск в массиве минимального или максимального элемента;
  
• 
  сортировка массива.
  

Вывод массива.

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

var

a: array [1..20] of integer;

i, n: integer;

begin

clrscr;

for i:=1 to n do

writeln (a[i]); {вывод в столбик}

либо write (a[i],’ ‘); {вывод в строчку}

либо writeln (‘a[‘,i,’]=’,a[i]); {вывод с пояснениями}

readln;

end

Задание:

1. 
   В массиве хранятся значения роста двадцати человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 50 до 100 включительно.
   
2. 
   Заполнить массив из двенадцати элементов следующим образом:
   

   1

   2

   …

   12

3. 
   Заполнить массив из двадцати элементов следующим образом:
   

20

19

…

1

Ввод массива.

Под вводом массива понимается ввод значений элементов массива. Как и вывод массива, ввод удобно реализовать с помощью оператора цикла for. Чтобы пользователь программы знал, ввода какого элемента массива ожидает программа, следует организовать вывод подсказок перед вводом очередного элемента массива. В подсказке обычно указывают индекс элемента массива.

var

a: array [1..20] of integer;

i, n: integer;

begin

clrscr;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

end;

Пример: Найти сумму элементов массива.

var

a: array [1..20] of integer;

i, n, s: integer;

begin

clrscr;

s:=0;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

s:=s+a[i];

end;

writeln (‘Сумма элементов массива=’,s);

readln;

end.

Задание:

1. 
   Заполнить массив:
   

а) десятью первыми членами арифметической прогрессии с известным первым членом прогрессии a и ее разностью p;

б) двадцатью первыми членами геометрической прогрессии с известным первым членом прогрессии a и ее знаменателем z.

1. 
   Дан массив. Все его элементы:
   

а) уменьшить на 20;

б) умножить на последний элемент;

в) увеличить на число b.

1. 
   Определить:
   

а) сумму всех элементов массива;

б) произведение всех элементов массива;

в) сумму квадратов всех элементов массива;

г) сумму шести первых элементов массива;

д) сумму элементов массива с k₁-го по k₂-й (значения k₁ и k₂ вводятся с клавиатуры; k₂>k₁);

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

ж) среднее арифметическое элементов массива с s₁-го по s₂-й (значения s₁ и s₂ вводятся с клавиатуры; s₂>s₁).

1. 
   Дан массив. Напечатать:
   

а) все неотрицательные элементы;

б) все элементы, не превышающие числа 100.

1. 
   Дан массив целых чисел. Напечатать:
   

а) все четные элементы;

б) все элементы, оканчивающиеся нулем.

1. 
   Дан массив натуральных чисел. Напечатать:
   

а) все элементы массива, являющиеся двузначными числами;

б) все элементы массива, являющиеся трехзначными числами.

1. 
   Дан массив. Напечатать:
   

а) второй, четвертый и т.д. элементы;

б) третий, шестой и т.д. элементы.

Поиск в массиве.

При решении многих задач возникает необходимость установить, содержит ли массив определенную информацию или нет. Например, определить есть ли в массиве нулевые элементы. Задачи такого типа называются поиском в массиве.

Для организации поиска в массиве могут быть использованы различные алгоритмы. Наиболее простой – это алгоритм простого перебора. Поиск осуществляется последовательным сравнением элементов массива с образцом.

Например:

• 
  Определить сколько раз в массиве встречается число а.
  

var

b: array [1..20] of integer;

i, n, k, a: integer;

begin

clrscr;

k:=0;

writeln (‘Введите искомое число’); readln (a);

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘b[‘,i,’]=’);

readln (b[i]);

if b[i]=a then inc(k);

end;

writeln (‘Количество элементов равных ’,a,’ в массиве ’,k);

readln;

end.

Задачи:

1. 
   Выяснить, верно ли, что сумма элементов массива есть неотрицательное число.
   
2. 
   Дан массив целых чисел. Выяснить:
   

а) верно ли, что сумма элементов массива есть четное число;

б) верно ли, что сумма квадратов элементов массива есть пятизначное число.

1. 
   Определить количество положительных и количество отрицательных элементов массива.
   
2. 
   Дан массив. Найти:
   

а) сумму элементов массива, значение которых не превышает 20;

б) сумму элементов массива, больших числа a.

1. 
   Дан массив целых чисел. Найти:
   

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

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

в) сумму элементов массива, кратных a или b.

1. 
   Определить сумму второго, четвертого, шестого и т.д. элементов массива.
   
2. 
   Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.
   
3. 
   Дан массив целых чисел. Определить количество четных элементов и количество элементов, оканчивающихся на цифру 5.
   
4. 
   Определить количество элементов массива, принадлежащих промежутку от a до b (значения a и b вводятся с клавиатуры; b>a).
   
5. 
   Найти число пар »соседних» элементов массива, являющихся четными числами.
   
6. 
   Найти число пар »соседних» элементов массива, оканчивающихся нулем.
   
7. 
   Найти число элементов массива, которые больше своих »соседей», т.е. предшествующего и последующего.
   
8. 
   Найти среднее арифметическое элементов массива, больших числа 10.
   
9. 
   Найти средние арифметические положительных и отрицательных элементов массива.
   
10. 
    Дан массив вещественных чисел.
    

а) Каждый отрицательный элемент заменить на его абсолютную величину.

б) Все элементы с нечетными номерами заменить на их квадратный корень.

в) Из всех положительных элементов вычесть элемент с номером k₁, из остальных — элемент с номером k₂.

г) Все элементы с нечетными номерами увеличить на 1, с четными — уменьшить на 1.

д) Из всех положительных элементов вычесть элемент с номером k₁, из всех отрицательных — число n. Нулевые элементы оставить без изменения.

е) Ко всем нулевым элементам прибавить n, из всех положительных элементов вычесть a, ко всем отрицательным прибавить b.

1. 
   Дан массив вещественных чисел.
   

а) Каждый элемент, больший 10, заменить на его квадратный корень.

б) Все элементы массива с четными номерами заменить на их абсолютную величину.

в) Ко всем отрицательным элементам прибавить элемент с номером m₁, к остальным — элемент с номером m₂.

г) Все элементы с четными номерами удвоить, с нечетными — уменьшить на 1.

д) Ко всем отрицательным элементам прибавить элемент с номером a₁, из всех нулевых вычесть число b. Положительные элементы оставить без изменения.

е) Из всех положительных элементов вычесть a, из всех отрицательных вычесть b. Ко всем нулевым элементам прибавить c.

1. 
   Дан массив целых чисел.
   

а) Все элементы, оканчивающиеся цифрой 4, уменьшить вдвое.

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

в) Четные элементы увеличить на a, а из элементов с четными номерами вычесть b.

1. 
   Дан массив целых чисел.
   

а) Все элементы, кратные числу 10, заменить нулем.

б) Все нечетные элементы удвоить, а четные уменьшить вдвое.

Алгоритм поиска минимального (максимального) элемента массива довольно очевиден: делается предположение, что первый элемент массива является минимальным (максимальным), затем остальные элементы массива сравниваются с этим элементом. Если обнаруживается, что проверяемый элемент меньше (больше) принятого за минимальный (максимальный), то этот элемент принимается за минимальный (максимальный) и продолжается проверка остальных элементов.

Найти минимальный элемент массива и его индекс.

var

a: array [1..20] of integer;

i, n, k, min, nmin: integer;

begin

clrscr;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

end;

min:=a[1]; nmin:=1;

for i:=2 to n do

if min>b[i] then begin

min:=b[i];

nmin:=i;

end;

writeln (‘Минимальный элемент массива ’, min, ‘ его индекс ’, nmin);

readln;

end.

Задачи:

1. 
   Дан массив. Определить:
   

а) максимальный элемент;

б) минимальный элемент;

в) на сколько максимальный элемент больше минимального;

г) индекс максимального элемента;

д) индекс минимального и индекс максимального элементов.

1. 
   Дан массив. Определить:
   

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

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

1. 
   Изменить знак у максимального по модулю элемента массива. Минимальный элемент массива при этом не определять.
   
2. 
   Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и напечатать их номера.
   
3. 
   Найти элемент, наиболее близкий к среднему значению всех элементов массива.
   
4. 
   Дан массив. Скопировать все его элементы в другой массив такого же размера:
   

а) в том же порядке расположения элементов;

б) в обратном порядке расположения элементов.

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

а) расположив элементы на тех же местах, что и в исходном массиве;

б) расположив элементы подряд с начала массива.

1. 
   Из элементов массива A сформировать массив B того же размера по правилу: если номер i элемента массива A четный, то B_i = A_i², в противном случае B_i = 2·A_i.
   
2. 
   Из элементов массива A, заполненного целыми числами, сформировать массив B того же размера по правилу: четные элементы массива A удвоить, нечетные оставить без изменения.
   
3. 
   Даны два массива одного размера. Получить третий массив, каждый элемент которого равен:
   

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

б) произведению элементов с одинаковыми номерами в заданных массивах;

в) максимальному из элементов с одинаковыми номерами в заданных массивах.

1. 
   Даны два массива одного размера, в которых нет нулевых элементов. Получить третий массив, каждый элемент которого равен 1, если элементы заданных массивов с тем же номером имеют одинаковый знак, и равен нулю в противном случае.
   
2. 
   Дан массив целых чисел.
   

а) Напечатать все элементы, предшествующие первому элементу с заданным значением n. Если элементов, равных n, в массиве нет, то должны быть напечатаны все элементы.

б) Напечатать все элементы, следующие за последним элементом, оканчивающимся цифрой «7». Если элементов, оканчивающихся цифрой «7», в массиве нет, то ни один элемент не должен быть напечатан.

1. 
   Найти количество различных элементов в массиве.
   
2. 
   Дано натуральное число n. Определить количество различных цифр в нем. Например, в числе 1234 количество различных цифр равно 4, в числе 22424 — 2, в числе 333 — 1.
   
3. 
   Дан массив целых чисел. Найти:
   

а) номер первого нечетного элемента. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;

б) номер первого элемента, кратного числу 13. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;

1. 
   Дан массив вещественных чисел. Определить, есть ли в нем отрицательные числа. В случае положительного ответа:
   

а) определить номер первого из них и напечатать все следующие за ним элементы;

б) определить номер последнего из них напечатать все элементы, расположенные слева от него.

Самостоятельная работа на поиск в массиве.

Обмены и перестановки. Для перестановки элементов вводят вспомогательную переменную, которой присваивают значение первого элемента, после чего первому элементу присваивают значение второго элемента, а второму – значение вспомогательной переменной.

Задачи:

1. 
   Дан массив. Поменять местами:
   

а) второй и пятый элементы;

б) m-й и n-й элементы;

в) третий и максимальный элементы. Если элементов с максимальным значением несколько, то в обмене должен участвовать первый из них;

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

1. 
   Дан массив из четного числа элементов. Поменять местами:
   

а) его половины;

б) первый элемент со вторым, третий — с четвертым и т.д.;

в) его половины следующим способом: первый элемент поменять с последним, второй — с предпоследним и т.д.

1. 
   Дан одномерный массив из 20 элементов. Переставить первые три и последние три элемента, сохранить порядок их следования.
   
2. 
   Поменять местами первый отрицательный и последний положительный элементы массива. Учесть возможность того, что отрицательных или положительных элементов в массиве может не быть.
   

В задачах под удалением элемента массива следует понимать:

1) исключение этого элемента из массива путем смещения всех следующих за ним элементов влево на 1 позицию;

2) присваивание последнему элементу массива значения 0.

1. 
   Удалить из массива:
   

а) третий элемент; б) k-й элемент.

1. 
   Удалить из массива, в котором все элементы различны:
   

а) максимальный элемент; б) минимальный элемент.

1. 
   Удалить из массива:
   

а) первый отрицательный элемент (если отрицательные элементы в массиве есть);

б) удалить последний четный элемент (если четные элементы в массиве есть).

1. 
   Удалить из массива:
   

а) все отрицательные элементы;

б) все элементы, большие данного числа n;

в) все элементы, начиная с n₁-го по n₂-й (n₁n₂).

1. 
   Дан массив целых чисел. Удалить из него:
   

а) все четные элементы, стоящие на нечетных местах;

б) все элементы, кратные 3 и 5.

1. 
   Удалить из массива все повторяющиеся элементы, оставив их первые вхождения, то есть в массиве должны остаться только различные элементы.
   

В задачах под вставкой числа n в массив после k-го элемента следует понимать:

1) увеличение размера массива на 1;

2) смещение всех элементов, начиная с (k+1)-го, вправо на 1 позицию;

3) присваивание (k+1)-му элементу массива значения n.

1. 
   Вставить в массив:
   

а) число 10 после второго элемента; б) число 100 после m-го элемента.

1. 
   Вставить заданное число в массив целых чисел:
   

а) после первого отрицательного элемента;

б) перед последним четным элементом.

1. 
   Вставить заданное число в массив целых чисел:
   

а) перед всеми элементами, кратными числу a;

б) после всех отрицательных элементов.

Контрольная работа на массивы.

8 класс.

Сортировка массива.

Под сортировкой массива подразумевается процесс перестановки элементов с целью упорядочивания их в соответствии с каким-либо критерием. Например, если имеется массив а — целых чисел, то после сортировки по возрастанию должно выполняться условие: a[1]a[2] …a[n], где n – верхняя граница индекса массива.

Существует много методов сортировки массивов. Но наиболее часто используемые это:

• 
  метод прямого выбора (метод главного элемента);
  
• 
  метод прямого обмена(метод пузырька).
  

Метод главного элемента.

Алгоритм сортировки массива по возрастанию методом прямого выбора или методом главного элемента может быть представлен так:

1. 
   Просматривая массив от первого элемента, найти минимальный и поместить на место первого элемента, а первый на место минимального.
   
2. 
   просматривая массив от второго элемента, найти минимальный и поместить его на место второго элемента, а второй на место минимального.
   
3. 
   И так далее до предпоследнего элемента.
   

Ниже представлена программа сортировки массива целых чисел по возрастанию.

program vosr;

uses crt;

var a: array [1..15] of integer;

i, j, k, n, m, c: integer;

begin

clrscr;

writeln (‘’); readln (n);

for i:=1 to n do begin

write (i,’:’); readln (a[i]);

end;

for i:=1 to n-1 do begin

k:=i;

for j:=i+1 to n do

if a[j]

c:=a[i];

a[i]:=a[k];

a[k]:=c;

end;

for i:=1 to n do

writeln (a[i]);

readln;

end.

Метод прямого обмена (метод пузырька).

В основе алгоритма лежит обмен соседних элементов массива. Каждый элемент массива, начиная с первого сравнивается со следующим и если он больше следующего, то элементы меняются местами. Таким образом, элементы с наименьшим значением продвигаются к началу массива (всплывают), а элементы с большим значением – к концу массива (тонут), поэтому его и называют методом пузырька. Этот процесс повторяется на единицу меньше раз чем элементов в массиве, либо возможно другой способ реализации этого метода, повторяется до тех пор пока находятся соседние элементы, такие что элемент стоящий правее оказывается меньше элемента стоящего левее.

program vosr;

uses crt;

var a: array [1..15] of integer;

i, j, k, n, m, c, f: integer;

begin

clrscr;

writeln (‘’); readln (n);

for i:=1 to n do begin

write (i,’:’); readln (a[i]);

end;

for i:=1 to n-1 do begin

for j:=1 to n-1 do

if a[j]>a[j+1] then begin

c:=a[j];

a[j]:=a[j+1];

a[j+1]:=c;

end;

end;

for i:=1 to n do

writeln (a[i]);

readln;

end.

program vosr;

uses crt;

var a: array [1..15] of integer;

i, j, k, n, m, c, f: integer;

begin

clrscr;

writeln (‘’); readln (n);

for i:=1 to n do begin

write (i,’:’); readln (a[i]);

end;

k:=n-1;

repeat

f:=0;

for i:=1 to k do

if a[i]>a[i+1] then begin

f:=1;

c:=a[i];

a[i]:=a[i+1];

a[i+1]:=c;

end;

dec(k);

until f=0;

for i:=1 to n do

writeln (a[i]);

readln;

end.

Достарыңызбен бөлісу: