Rustem1112

20.05.2021 21:01

Информатика

Есть ответ 👍

Решить . pascal дан массив целых чисел к(15), найти и вывести на печать отрицательные элементы из этого массива.

182

485

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

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

Kseiaa

Информатика

4,7(60 оценок)

Program chik; var k: array[1..15]of integer; i: integer; begin for i: =1 to 15 do read(k[i]); for i: =1 to 15 do if(k[i]< 0)then write(k[i],' '); end.

Maxxxx123

Информатика

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

всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?

в данной прграмме подсчитывается сумма нечётных элементов массива

если же нужно второе то строку отмеченную {*} следует заменить на

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

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

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

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

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

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

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

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

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

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