М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

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

👇
Ответ:
fdsufsycdst
fdsufsycdst
02.02.2021

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.

4,6(25 оценок)
Открыть все ответы
Ответ:
lvcenkoirina
lvcenkoirina
02.02.2021

#1

lst = [int(i) for i in input().split()]

print(len(set(lst)))  

#2

import statistics  

lst = [int(i) for i in input().split()]

print(statistics.mode(lst))

Объяснение:

#1

set() не изменяет состояния списка, передаваемого аргументом. Возвращает объект типа set, представляющий собой множество уникальных объектов, входивших в изначальный список. Длина этого множества и есть кол-во уникальных элементов в изначальном списке

#2

Модуль statistics является встроенным модулем Python (предоставляется пользователю "из коробки", без нужды качать что либо), и предоставляет набор функций и классов для работы со статистикой. Функция statistics.mode([iterable]) возвращает самый часто встречающийся элемент переданного ей списка (или любого другого итерируемого объекта)

4,5(39 оценок)
Ответ:
bershteindanik
bershteindanik
02.02.2021

var i,j,n,k,k1,k2,k3: integer; bb: boolean;

a: array of integer;

begin

write('N = ');

readln(n);

if ((n mod 3 = 0) and (n<>0)) then begin

write('K1 = ');

readln(k1);

write('K2 = ');

readln(k2);

write('K3 = ');

readln(k3);

setlength(a,n);

for i:=0 to n-1 do begin

write('Заполним номер ',i+1,' -> ');

readln(a[i]);

end;

i:=0;

while (i<n) do

begin

a[i]:=k1-a[i];

a[i+1]:=k2-a[i+1];

a[i+2]:=k3-a[i+2];

inc(i,3);

end;

write('K = ');

readln(k);

for i:=0 to n-2 do

if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;

if (bb=false) then writeln(0);

end else writeln('Введите число кратное 3 и неравное 0');

readln;

end.

4,4(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ