Напишите программу,которая содержит описание типов данных и подпрограмм для обработки одномерногго массива размерностью n , где n< =15.программа должна состоять из подпрограмм: a)ввод элементов массива с клавиатуры b)функции возвращающей сумму четных элементов массива c)функции выводящей на экран минимальный элемент массива

134

372

Посмотреть ответы 2

Ответы на вопрос:

чирик15

Информатика

4,4(55 оценок)

комментарии:

вот описание своего типа данных:

typeparray = 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; beginres: = arraytoprocess[1]; for i: =2 to n dobegin if(res> arraytoprocess[i]) then res: =arraytoprocess[i]; end; minimalelement: =res; writeln('minimal element: ', res); end;

beginclrscr; n: =0; while (n< 1) or (n> 15) dobeginwrite('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.

ZlataPaw

Информатика

4,8(52 оценок)

y=2

Объяснение:

но это не точно.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.