Есть ответ 👍

Pascalabc 1)дан массив, найти кол-во нечетных элементов в массиве. 2)дан массив, найти max элемент и его индекс. 3)дан массив, найти сумму отрицательных элементов. ! (решение должно быть на уровне 8 класса, без элементов облегчающих написание программы. ответы тупо скопированные с других сайтов не принимаются)

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

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


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.


5символов потомучто 1 красный 1 зелёный 1жёлтый 1синий 1белый наверно тока так если всего 5 клавиш

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS