Ответы на вопрос:
uses crt;
var
ar: array[1..19]of integer;
i, mul, sum, count, min, mini: integer;
begin
count : = 0;
sum : = 0;
mul : = 1;
randomize;
for i : = 1 to 19 do
begin
ar[i] : = random(13) - 6;
mul : = mul * ar[i];
if(ar[i] mod 2 = 0) then
begin
textbackground(green);
sum : = sum + ar[i];
count : = count + 1;
end;
if(ar[i] = 5) then
textbackground(red);
write(ar[i], ' ');
textbackground(black);
end;
writeln();
writeln('произведение всех элементов массива = ', mul);
writeln('сумма четных чисел = ', sum, ', количество = ', count);
min : = ar[1];
mini : = 1;
write('номера элементов, равных 5: ');
for i : = 1 to 19 do
begin
if(ar[i] = 5) then
write(i, ' ');
if((ar[i]) < min) then
begin
min : = ar[i];
mini : = i;
end;
end;
writeln();
writeln('минимальный элемент = ', min, ', его номер = ', mini);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Sobaka2001200114.03.2023 19:53
-
angelikamaxowoz4v27.05.2023 02:02
-
asus10memopadp06j6e19.05.2022 20:07
-
den11111111111307.03.2023 22:58
-
asya15917.02.2020 21:16
-
Lonikqq05.03.2022 08:29
-
lenaaaaaak115.03.2023 08:09
-
sashkaignatoly03.10.2020 09:53
-
Cool28126.09.2021 15:51
-
нррроь23.01.2022 11:35
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.