Комментарии:
Вот описание своего типа данных:
type
pArray = array [1..15] of integer;
Вот проверка на правильно введенноее значение от 1 до 15:
while (N<1) or (n>15) do, если введешь неправильно спросит еще раз
Подпрограммы:
Ввод элементов массива с клавиатуры здесь: procedure InputArray
Функции возвращающей сумму четных элементов массива: function SummOfEven
Функции выводящей на экран минимальный элемент массива: function MinimalElement
program ArrayProccessor;
uses crt;
type
pArray = array [1..15] of integer;
var myArray: pArray;
N:integer;
procedure InputArray(var arrayToInput:pArray; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('vvedite a[',i,']=');
readln(arrayToInput[i]);
end;
end;
function SummOfEven(arrayToProcess:pArray; n:integer):integer;
var i:integer;
res:integer;
begin
res:=0;
for i:=1 to n do
begin
if not odd( arrayToProcess[i]) then res:=res+arrayToProcess[i];
end;
SummOfEven:=res;
end;
function MinimalElement(arrayToProcess: pArray; n:integer):integer;
var i:integer;
res:integer;
begin
res:= arrayToProcess[1];
for i:=2 to n do
begin
if(res>arrayToProcess[i]) then res:=arrayToProcess[i];
end;
MinimalElement:=res;
writeln('minimal element: ', res);
end;
begin
clrscr;
N:=0;
while (N<1) or (n>15) do
begin
write('Vvedite kol-vo elementov massiva ot 1 do 15: ');
readln(N);
end;
InputArray(myArray, n);
writeln('summa chetnih: ', SummOfEven(myArray, n));
MinimalElement(myArray, n);
readln;
end.
1)Золотые руки, золотое сердце, весеннее настроение
2)Лист – у тетради и у растения
Месяц – в календаре; на небе
Ключ – скрипичный; от двери; горный; гаечный
Горн – кузнечный; духовой инструмент
Конь – животное; шахматная фигура,
Лента – на бескозырке у моряка; бумажная; бант в косе; новостная в газете
Дробь – барабанная; математическая; ружейная
Мушка – насекомое; прицел в винтовке,
Ствол – у дерева; у винтовки,
Конек – морской; украшение на избе; на катке; на сцене
Вал – земляной; девятый; металлическая деталь
Рукав – у реки; у одежды
Тур – баран; в шахматах
Челнок – лодка; в швейной машине
Клетка – птичий домик; строение тела
Баланс – бухгалтерский; в гимнастике
Знак – дорожный; символ
Лук – оружие; растение
Фига – растение; кукиш
Дисциплина – воспитание; школьный предмет
Раздел – снял одежду; глава в книге
Надуть – обмануть; наполнить воздухом
Петрушка – занятная история; растение
Брак – некачественная работа; свадьба
Бродить – закисать (о жидкости); ходить без цели
Глава – самый главный; голова; раздел в книге
Ласка – доброта и нежность; животное
Норка – жилье животного; животное
Образование – усвоение знаний; организация чего-то нового
Охота – когда очень хочется; на животных
3) Дебет, кредит, авизо, проводка, эмбарго
