:1 to n do
read(ai);
Блок вывода элементов линейного массива на печать:
writeln(линейный массив);
for i:1 to n do
write (ai,);
Блок суммы элементов:
S:0;
for i:1 to n do
S:Sai;
Блок произведения элементов:
Р:1;
for i:1 to n do
Р:Рai;
Блок поиска минимального элемента:
min:a1;
for i:2 to n do
if aimax then max:ai;
Алгоритм решения задачи на нахождение минимального/максимального элемента:
1. Блок объявления переменных
2. Блок ввода элементов массива
3. Блок поиска минимально/максимального элемента
4. Блок вывода результата.
Алгоритм решения задачи на нахождение суммы/произведения элементов массива:
1. Блок объявления переменных
2. Блок ввода элементов массива
3. Блок нахождения суммы/произведения элементов
4. Блок вывода результата.
IV. Закрепление материала
Пример 1: Составить программу нахождения суммы элементов линейного массива.
Решение: Согласно приведенному выше алгоритму.
Program Primer1;
type
massarray1. . 100of integer;
var
a:mass;
n,i,S:integer;
begin
writeln(введите количество элементов);
read(n);
writeln(введите элементы массива);
for i:1 to n do
read(ai);
S:0;
For i:1 to n do
S:sai;
Writelen (S,S);
end.
Пример 2: Составить программу нахождения минимального элементов линейного массива.
Решение: Согласно приведенному выше алгоритму.
Program Primer2;
var a:array 1. . 20 of integer;
i,n,min:integer;
begin
writeln(введите количество элементов);
read(n);
writeln(введите элементы массива);
for i:1 to n do
read(ai);
min:a1
Страницы: << < 1 | 2 | 3 > >>