Question

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

Answer 1

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.

Answer 2

Конечно, помогу! Ниже приведены решения трех задач на языке программирования PascalABC.

1. Найти количество нечетных элементов в массиве:

pascalCopy code
program CountOddElements;
const
  N = 10; // Здесь можно задать размер массива (количество элементов)
var
  arr: array[1..N] of integer;
  i, count: integer;
begin
  // Вводим элементы массива
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Инициализируем счетчик нечетных элементов
  count := 0;

  // Подсчитываем количество нечетных элементов
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then
      count := count + 1;
  end;

  writeln('Количество нечетных элементов в массиве: ', count);
end.

2. Найти максимальный элемент и его индекс в массиве:

pascalCopy code
program FindMaxElement;
const
  N = 10; // Здесь можно задать размер массива (количество элементов)
var
  arr: array[1..N] of integer;
  i, maxElement, maxIndex: integer;
begin
  // Вводим элементы массива
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Инициализируем переменные для максимального элемента и его индекса
  maxElement := arr[1];
  maxIndex := 1;

  // Находим максимальный элемент и его индекс
  for i := 2 to N do
  begin
    if arr[i] > maxElement then
    begin
      maxElement := arr[i];
      maxIndex := i;
    end;
  end;

  writeln('Максимальный элемент в массиве: ', maxElement);
  writeln('Индекс максимального элемента в массиве: ', maxIndex);
end.

3. Найти сумму отрицательных элементов в массиве:

pascalCopy code
program SumNegativeElements;
const
  N = 10; // Здесь можно задать размер массива (количество элементов)
var
  arr: array[1..N] of integer;
  i, sum: integer;
begin
  // Вводим элементы массива
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Инициализируем переменную для суммы отрицательных элементов
  sum := 0;

  // Находим сумму отрицательных элементов
  for i := 1 to N do
  begin
    if arr[i] < 0 then
      sum := sum + arr[i];
  end;

  writeln('Сумма отрицательных элементов в массиве: ', sum);
end.

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