Pascalabc 1)дан массив, найти кол-во нечетных элементов в массиве. 2)дан массив, найти max элемент и его индекс. 3)дан массив, найти сумму отрицательных элементов. ! (решение должно быть на уровне 8 класса, без элементов облегчающих написание программы. ответы тупо скопированные с других сайтов не принимаются)
Ответы на вопрос:
pascalвыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const n=10;
var i,j,k: integer; max,min: integer; s,buf: real; f: text;
const x: array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);
begin
assign(f,'array.pas');
rewrite (f);
writeln (f);
writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');
min: =0;
max: =0;
writeln;
writeln;
for i: =1 to 9 do
if x[i] mod 2 = -1 then if x[i]< x[i+1] then begin
min: =min+x[i];
write ('минимальное нечетное x[',i,']=' ,x[i]);
end;
writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}
for i: =1 to 9 do
if x[i] mod 2 = 0 then if x[i]> x[i+1] then begin
max: =max+x[i];
write ('максимальное четное x[',i,']=' ,x[i]);
end;
writeln;
writeln;
s: =0;
for i: =2 to 9 do
begin
s: =s+x[i];
writeln('сумма элементов между min нечетным и max четным = ',s: 4: 0);
end;
writeln;
writeln;
{поменять местами максимальное четное с минимальным нечетным}
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
arte676718.04.2023 16:56
-
Gasdsa20.02.2022 01:23
-
аня294205.06.2022 14:43
-
igrotron26.02.2020 17:30
-
Tosya0302.08.2021 19:10
-
alexa702131.10.2020 07:50
-
999876506.08.2021 19:10
-
kklll1g15.02.2022 16:57
-
zalalova0507.04.2023 07:34
-
spritemax1110.04.2022 02:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.