PascalABC1)Дан массив, отыскать кол-во нечетных частей в массиве.2)Дан массив, найти max

Что такое "элементы, облегчающие..." ?

И позже, уровень программирования привязан не к классу, а к познаниям учителя, который преподает информатику. Чем они ниже, тем требовательнее требования учителя. Неразумно вроде, но на практике конкретно так. Видимо, опасается не осознать решения.числа в данном численном значении ли ответ не в его стиле написания программки.

Боже... откуда в текст вставилась ерунда какая-то????

И потом, уровень программирования привязан не к классу, а к познаниям учителя, который преподает информатику. Чем они ниже, тем взыскательнее требования учителя. Неразумно вроде, но на практике конкретно так. Видимо, опасается не понять решения, если оно будет не в его стиле написания программки.

И последнее. Нет языка PascalABC. Или Pascal ABC (раздельно), либо PascalABC.NET (если слитно)

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]lt;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]gt;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.