Типовые задачи на обработку одномерных массивов данных в Паскале

Обработка одномерных массивов данных

Типовые задачи

Определение

Массив – это упорядоченный набор однотипных данных. Массивы бывают одномерные (линейные) и двумерные (табличные).

Примеры :

• 2 5 7 22 25 27 – целочисленный массив из шести элементов;

• 2,36 1,15 45,6 – вещественный массив из трех элементов;

• true false false false true – логический массив из пяти элементов;

• Иванов Петров Сидоров Васькин Васечкин Николаев – строковый массив из шести элементов.

Описание массивов в программе

var имя :array[ номер первого элемента .. номер последнего элемента ] of [ тип элементов ];

Например:

var A: array[1..100] of integer; { целочисленный массив, максимальное количество элементов – 100 }

b: array[1..50] of real; { вещественный массив, максимальное количество элементов – 50 }

Ввод элементов массива

Для ввода элементов массива в компьютерную память используются циклические алгоритмические конструкции.

Например:

For i:=1 to 10 do readln(A[i]); { цикл с параметром для ввода 10-и элементов массива }

Вывод элементов массива

Для вывода элементов массива также используются циклические алгоритмические конструкции.

Например:

For i:=1 to 20 do writeln(B[i]); { цикл с параметром для вывода 20-и элементов массива, элементы выводятся в столбик }

For i:=1 to 20 do write(B[i], ‘ ‘); { цикл с параметром для вывода 20-и элементов массива, элементы выводятся в строку через пробел }

Решаем типовые задачи

Нахождение суммы элементов массива, состоящего из n чисел

s:=0;

for i:=1 to n do

s:=s+a[i];

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

Найдите сумму только положительных элементов массива, состоящего из n чисел.

0 then s:=s+a[i]; writeln (‘ сумма = ’, s);" width="640"

Решение:

s:=0;

for i:=1 to n do

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

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

Нахождение произведения элементов массива, состоящего из n чисел

p:=1;

for i:=1 to n do

p:=p*a[i];

writeln (‘ произведение = ’, p);

Найдите произведение только отрицательных элементов массива, состоящего из n чисел.

Решение:

p:=1;

for i:=1 to 10 do

if a[i]

writeln (‘ произведение = ’, p);

Нахождение среднего арифметического элементов массива, состоящего из n чисел

s:=0;

for i:=1 to n do

s:=s+a[i];

sr:=s/n;

writeln (‘ среднее арифметическое = ’, sr);

Вычислить количество пятёрок, которые получены Банановым, если известно, что всего он получил 10 отметок.

k:=0;

for i:=1 to 10 do

if a[i]=5 then k:=k+1;

writeln (‘ кол-во «5»-ок = ’, k);

Найти среднее арифметическое положительных элементов массива, состоящего из n чисел

0 then begin s:=s+a[i]; k:=k+1 end; sr:=s/k; writeln (‘ среднее = ’, sr);" width="640"

Решение:

s:=0;

k:=0

for i:=1 to n do

if a[i]0 then

begin

s:=s+a[i];

k:=k+1

end;

sr:=s/k;

writeln (‘ среднее = ’, sr);

max then max:=a[i]; writeln(‘max=‘, max); Указать индексы элементов, совпадающих с наибольшим. for i:= 1 to n do if a[i] = max then writeln (‘ индекс максимального элемента = ‘, i);" width="640"

Найти наибольший элемент в заданном массиве из n чисел

max:=a[1];

for i:=2 to n do

if a[i]max then max:=a[i];

writeln(‘max=‘, max);

Указать индексы элементов, совпадающих с наибольшим.

for i:= 1 to n do

if a[i] = max then writeln (‘ индекс максимального элемента = ‘, i);

Замена элементов массива

for i:= 1 to n do

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

for i:=1 to n do write (a[i],’ ‘); { алгоритм замены чётных элементов массива числом 0, нечётных – числом 1 }