Регистрация
123443123
01.07.2022 13:47
Информатика
Есть ответ 👍

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

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

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

loric225p0cgrp
loric225p0cgrp
4,7(78 оценок)

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.

rudaniladanilov
rudaniladanilov
4,6(21 оценок)

Алгоритм - это совокупность последовательных шагов, схема действий, приводящих к желаемому результату.

Например, кулинарный рецепт, в котором последовательно описаны все шаги по приготовлению какого-нибудь блюда - это алгоритм

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