Напишите блок-схему ! найти среднее арифметическое четных элементов в массивах а(15) и с(9) из интервала [10; 30] program lr1; const n=9 ; m=15; type massiv=array [1..m] of integer; var a,c: massiv; i: integer; s1, s2: real; {процедура ввода элентов массива} procedure input (var x: massiv; k: integer); var i: integer; begin for i: =1 to k do begin write (' введи массив '); readln (x[i]); end; end; {процедура вывода элентов массива на экран} procedure output (var x: massiv; k: integer); var i: integer; begin write (' исходный массив'); for i: =1 to k do write (x[i]); writeln; - end; {подпрограмма - функция обработки массива } function sarf (x: massiv; k: integer): real; var s,kol,i: integer ; sa: real; begin s: =0; kol: =0; for i: =1 to k do if (x[i] mod 2=0) and (x[i]> =10) and (x[i]< =30) then begin s: =s+x[i]; kol: =kol+1; end; sa: =s/kol; sarf: =sa; end; {основная программа } begin writeln ('input massiv a'); input (a, m); output (a, m); s1: =sarf (a, m); writeln ('среднее арифметическое массива a=', s1); writeln ('input massiv c'); input (c, n); output (c, n); s2: =sarf (c, n); writeln ('среднее арифметическое массива c=', s2); end.

166

232

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

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

portal1234

Информатика

4,5(94 оценок)

Не , вот к картинке прикрепил)

Nikita200111

Информатика

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

vara: array[1..8] of integer; i,k,t: integer; beginfor i: =1 to 8 doreadln(a[i]);

for k: = 8 downto 2 dobegin for i: =1 to k-1 do begin if a[i+1] < a[i] then begin t: =a[i]; a[i]: =a[i+1]; a[i+1] : = t; end; end; end; for i: =1 to 8 do

write(a[i],' ');

readln; end.

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

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

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

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

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

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

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

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

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

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