Дан массив целых чисел из 10 элементов. заполните клавиатуру. найти: а) сумму элементов,имеющих нечетное значение б) вывести индексы (номера) тех элементов,значение которых больше заданного числа в) определить есть ли в данном массиве положительные кратные данному числу
Ответы на вопрос:
всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?
в данной прграмме подсчитывается сумма нечётных элементов массива
если же нужно второе то строку отмеченную {*} следует заменить на
if (i mod 2)> 0 then s: =s+a[i];
program massiv;
uses crt;
var a: array[1..10] of integer;
i,sum,ch: integer;
begin
clrscr;
write('введите число: ' );
readln(ch);
write('введите элементы массива: ');
sum: =0;
for i: =1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2)> 0 then s: =s+a[i]; {*}
end;
writeln; write('исходный массив: ');
for i: =1 to 10 do
begin
write(a[i]);
write(' ' );
end;
writeln; writeln;
write('сумма нечётных элементов массива: ',sum)
writeln; writeln;
write('номера элементов которые больше числа ',ch,' : ' );
for i: =1 to 10 do
if (a[i]> ch) then
begin
write(i: 2);
write(' ' );
end;
writeln; writeln;
write('положительные числа которые кратны числу ',ch,' : ' );
for i: =1 to 10 do
if (a[i]> 0) and (a[i] mod ch=0) then
begin
write(a[i]);
write(' ' );
end;
readkey;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
sychev6629.12.2021 12:25
-
шрвлап01.09.2022 07:12
-
kinzya03.06.2021 01:02
-
amina55565801.12.2020 16:27
-
olgavasileva6720.12.2020 12:02
-
Высплюсенье14.06.2021 16:50
-
Sofia222412.08.2020 18:10
-
igorrusinov1908.08.2022 21:40
-
ggimat20320.11.2022 10:00
-
Kseniya00603.04.2023 12:38
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.