В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
kristinэ
kristinэ
03.09.2020 18:22 •  Информатика

Назовите истинное целое число X: X> не 6 X> не 4​

Показать ответ
Ответ:
BroKeNxHeArT
BroKeNxHeArT
30.09.2020 17:16

Пояснение:

Сумма будет максимальной в том случае, если будут суммированы два самых больших числа в массива. То есть необходимо их найти и вывести их индексы. Программа снизу как раз это и вычисляет через два прохода цикла for

a = [] #объявление списка    

n = 10 #кол-во элементов в списке

for i in range(0,n): #заполнение списка

   a.append(int(input('Введите ['+ str(i) + "] элемент: ")))

max_number = 0 #устанавливаем начальный индекс макс. эл.

for i in range(n-1): #поиск индекса макс. эл.

   if(a[max_number] < a[i+1]):

       max_number = i+1

       

if(max_number == 0): #если индекс макс. эл = 0

   pre_max_number = 1 #начальный индекс второго макс. эл. = 1

else: pre_max_number = 0 #иначе 0

for j in range(n-1): #поиск индекса второго макс. эл.

   if(j+1 != max_number and a[pre_max_number] < a[j+1]):

       pre_max_number = j+1

       

print(max_number, pre_max_number) #вывод их на экран

0,0(0 оценок)
Ответ:
polinapetrova8
polinapetrova8
22.09.2022 05:36

Представлю 3 программы два с массивом и один без массива

1)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

 end;

  for i:=1 to n do  begin

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

2)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

3)var a,i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

if n<=10 then begin

 for i:=1 to n do  begin

     writeln('введите оценку за экзамен');

   readln(a);

    if a=5 then k5:=k5+1;

    if a=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end;

 end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота