В этой публикации приведем примеры задач с решениями на языке Паскаль по теме «Массив».
Задачи:
- Дан массив из 10 целых чисел. Найти сумму элементов, кратных данному числу k.
- Дан массив из N элементов. Найти количество элементов, равных максимальному.
- Дан массив из N элементов. Найти среднее значение положительных элементов.
Задача 1. Дан массив из 10 целых чисел. Найти сумму элементов, кратных данному числу k.
Исходные данные: a — массив 10 целых чисел (тип array); k — целое число (тип integer)
Выходные данные: sum — сумма элементов, кратных числу k
Как будем решать задачу:
- Введем массив 10 целых чисел оператором цикла for с счетчиком от 1 до 10.
- Введем число k
- Обнулим сумму sum
- В цикле for будем проверять, делится ли число, хранящееся в ячейке (элемент массива) на число k, если да, то будем этот элемент добавлять в сумму sum.
- Выведем значение sum на экран.
Программа решения задачи на языке Паскаль:
УРОК 9 -10. Максимальный и минимальный элемент массива (10 класс)
var a:array[1..10] of integer;
writeln(‘Введите массив 10 целых чисел’);
for j:=1 to 10 do
write(‘Введите число k=’);
for j:=1 to 10 do
if a[j] mod k = 0 then sum:=sum+a[j];
writeln(‘Сумма элементов, кратных числу ‘,k,’: ‘,sum);
Программа решения задачи на языке Паскаль
С использованием методов для последовательностей в PascalABC.NET (версия 3.8.2)
var a:array[1..10] of integer;
writeln(‘Введите массив 10 целых чисел’);
for j:=1 to 10 do
write(‘Введите число k=’);
s:=a.Where(x -> x mod k = 0).sum;
writeln(‘Сумма элементов, кратных числу ‘,k,’: ‘,s);
Задача 2. Дан массив из N элементов. Найти количество элементов, равных максимальному.
Исходные данные: N — количество элементов массива (тип integer); a — массив N целых чисел (тип array)
Промежуточные данные: m — максимальное значение (тип integer)
Выходные данные: k — количество элементов, равных максимальному (тип integer)
Как будем решать задачу
- Введем число N
- Введем массив из N элементов
- Найдем максимальное значение
- Найдем количество элементов, равных максимальному значению.
Программа решения задачи на языке Паскаль:
var a:array[1..10] of integer;
writeln(‘Введите количество элементов массива’);
writeln(‘Введите массив целых чисел’);
if a[j]>m then m:=a[j];
if a[j]=m then k:=k+1;
writeln(‘Количество элементов, равных максимальному k=’,k);
Программа решения задачи на языке Паскаль
С использованием методов для последовательностей в PascalABC.NET (версия 3.8.2)
var a:array of integer;
writeln(‘Введите количество элементов массива’);
writeln(‘Введите массив целых чисел’);
for j:=0 to N-1 do
writeln(‘Количество элементов, равных максимальному ‘,k);
Задача 3. Дан массив из N элементов. Найти среднее значение положительных элементов.
Исходные данные: N — количество элементов массива (тип integer); a — массив N целых чисел (тип array)
Паскаль с нуля [ч7]. Одномерные массивы.
Промежуточные данные: s — сумма положительных элементов (тип integer), k — количество положительных элементов (тип integer)
Выходные данные: r — среднее значение положительных элементов (тип real)
Как будем решать задачу
- Введем число N
- Введем массив из N элементов
- Найдем сумму и количество положительных элементов
- Вычислим среднее значение положительных элементов
Программа решения задачи на языке Паскаль
var a:array[1..10] of integer;
writeln(‘Введите количество элементов массива’);
writeln(‘Введите массив целых чисел’);
Источник: reshupascal.blogspot.com
Напиши программу для создания массива a из десяти целых чисел элементы которого вводятся
Ответ:const n=7;
var b:array [1..n] of integer;
i,s:integer;
begin
write (‘Массив: ‘);
for i:=1 to n do
begin
b[i]:=random(25);
write (b[i]:4);
s:=s+b[i]
end;
writeln;
writeln(‘Сумма элементов: ‘,s)
end.
Объяснение:
Источник: znanija.pro