kris3256567

26.10.2022 02:09

Информатика

Есть ответ 👍

Укого с информатикой хорошо? 9 класс написать программу для нахождения минимального элемента массива а(21). написать программу, находящую номер первого и последнего отрицательного элементов массива y(25). вычислить среднее арифметическое положительных четных элементов массива а(n).

285

386

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

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

Нурлы11

Информатика

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

var

a : array [1..21] of integer;

min : integer : = 32766;

begin

for var i: =1 to 21 do

readln(a[i]);

for var i: =1 to 21 do

if (a[i] < min) then

min : = a[i];

writeln(min);

end.

var

y : array [1..25] of integer;

isthefirst : boolean : = false;

last : integer : = 0;

begin

for var i: =1 to 25 do

readln(y[i]);

for var i: =1 to 25 do

if (y[i] < 0) and (isthefirst = false) then

begin

writeln(i);

isthefirst : = true;

break;

end;

for var i: =2 to 25 do

begin

if (i = 25) then

begin

if (y[i] < 0) and (last = 0) then

last : = i;

break;

end;

if ((y[i+1] > 0) and (y[i] < 0)) then

last : = i;

end;

if (isthefirst) and (last = 0) then

last : = 1;

if (last < > 0) then

writeln(last) else

writeln('there''no numbers');

end.

//не бейте за кастыли . мне лень

type tintmassiv = array of integer; //дин. массив (более гибок в работе)

var

n : integer;

sum : integer : = 0;

counter : integer : = 0;

var a: tintmassiv;

begin

readln (n);

setlength(a, n);

for var i: =0 to n-1 do

begin

readln(a[i]);

if (a[i] > 0) and (a[i] mod 2 = 0) then

begin

sum += a[i];

counter += 1;

end;

if (sum = 0) or (counter = 0) then

begin

writeln('there''re no numbers');

exit;

end;

writeln(sum/counter);

end.

radacherepkova

Информатика

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

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('длина последовательности: '); var a: =(seqrandom(n-1,0,1)+(-; // последовательность 0 и 1 a.println; if a.where(x-> x> =0).distinct.count> 1 then writeln('есть отличающиеся элементы') else writeln('все элементы равны') end. примеры длина последовательности: 4 1 1 1 -1 все элементы равны длина последовательности: 5 0 1 1 0 -1 есть отличающиеся элементы

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

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

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

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

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

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

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

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

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

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