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

1. найти те элементы массива, которые равны сумме двух своих соседей. первый и последний элемент имеют только по одному соседу, поэтому искомыми быть не могут. на вход программе сначало подается значение n< =100 – количество элементов в массиве. в следующей строке расположены сами элементы массива – целые числа, по модулю не превосходящие 10000. выдайте значения искомых элементов массива в том же порядке, в каком они располагались во входных данных. 2. на вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. всего будет введено не более 100000 чисел. подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т.д. и выдайте результат. в выходных данных всегда должно быть 9 чисел. 3. текст на языке запишите в массив a[1..1000] of char. помимо букв в нем могут встречаться пробелы и знаки препинания. в массиве b [‘a’ ..’z’’] of integer получите сведения о том, сколько и каких букв встречается в этом тексте. при подсчете строчные и прописные буквы не различать. на вход программе подается значение n< =1000 – количество символов в тексте. в следующей строке входных данных расположены сами символы (без разделителей). выдайте 26 чисел – значения элементов массива b. пример входные данные выходные данные 12 hello world! 0 0 0 1 1 0 0 1 0 0 0 3 0 0 2 0 0 1 0 0 0 0 1 0 0 0 4. подсчитайте за один проход, сколько его элементов равны максимальному элементу. на вход программе сначала подается значение n< =100 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. выдайте количество искомых элементов массива. 5. в массиве, заполненным произвольными целыми числами, найдите два числа, произведение которых максимально. вложенные циклы не используйте. на вход программе сначала подается значение n< =10000 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы – целые числа, по модулю непревосходящие 30000. выдайте два искомых числа в порядке неубывания. 6. на вход программе сначала подается значение n< =100 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. распечатайте только те значения элементов массива, которые встречаются в нем ровно один раз. элементы следует распечатывать в том порядке, в котором они встречаются в массиве. решите любые две

👇
Ответ:
Snowandsand368
Snowandsand368
31.10.2021
Задача 1
var
  a:array [1..100] of integer;
  i,n:integer;
begin
  writeln('Введите n <=100');
  readln(n);
  writeln('Введите массив');
  for i:=1 to n do
  readln(a[i]);
  writeln('Массив');
  for i:=1 to n do
  write(a[i], ' ');
  writeln;
  writeln('Элементы равные сумме двух соседей:');
  for i:=2 to (n-1) do
  if a[i]=(a[i-1]+a[i+1]) then write(a[i],' ');
  writeln;   
end.

задача 5
var
  a:array [1..10000] of integer;
  i,n, mx1, mx2:integer;
begin
  writeln('Введите n <=10000');
  readln(n);
  writeln('Введите массив');
  for i:=1 to n do
  readln(a[i]);
  writeln('Массив');
  for i:=1 to n do
  write(a[i], ' ');
  writeln;
  mx1:=1;
  for i:=2 to n do
  if a[i]>a[mx1] then mx1:=i;
  if mx1=1 then mx2:=2 else mx2:=1;
  for i:=1 to n do
  if (a[i]>a[mx2])and(i<>mx1) then mx2:=i;
  writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]);   
end.
4,6(54 оценок)
Открыть все ответы
Ответ:
KatyGey
KatyGey
31.10.2021

Выбор профессии очень важен, так как работа должна приносить прибыль, удовлетворяющую потребностям человека, и работая, человек должен чувствовать, что занимается тем, чем хочет, а не тем, чем вынужден.

Мой выбор – IT-специалист.

IT-специалист – профессия очень востребованная и нужная. Многие предприятия заканчивают свое существование без этих сотрудников.

IT-специалисты нужны в любой компании, независимо от масштаба деятельности. Сейчас эта профессия очень востребована, так как в России появляется много заграничных фирм.

Многие в недоумении от моего выбора профессии.

В нашем городе все привыкли к тому, что выпускники наших школ выбирают довольно типичные профессии, такие как врач, парикмахер, риэлтор, адвокат, учитель, бухгалтер и другие. Более того, многие и не подозревают о существовании более интересных профессий, связанных с различными сферами деятельности. Конечно, все перечисленные мной профессии незаменимы в нашей жизни, но, если человек хорошо окончил школу, почему бы не попытаться попробовать свои силы в профессиях более тяжелых умственных ?

Так я и собираюсь поступить.

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

Я считаю, что каждый должен выбирать то, что ему близко.

Мне близка работа с компьютером.

Во-первых, компьютер в современном мире – незаменимая вещь, без которой уже трудно жить.

Во-вторых, сейчас не много людей, которые могут профессионально работать с компьютером.

И если очень стараться, то можно многого добиться в жизни.

Она у нас одна, и не стоит растрачивать время, отведенное на жизнь, просто так

4,5(53 оценок)
Ответ:
Andrey245667
Andrey245667
31.10.2021

   #Непосредственно ввод матрицы

main_list = []

final_end_check = 0

input_row_order = -1

row_end_check = 0

while (final_end_check == 0):

   input_row_order += 1

   input_list = []

   while (row_end_check == 0):

       a = input("Введите число в матрицу")

       try:

           a = int(a)

       except ValueError:

           if (a == "end"):

               if (len(input_list) == len(main_list[input_row_order - 1])):

                   main_list.append(input_list)

               final_end_check = 1

               break

       else:

           input_list.append(a)

       if (input_row_order == 0 and a == "next"):

           main_list.append(input_list)

           print(input_list, "\nВы ввели строку номер", input_row_order + 1, ", её длина равна", len(input_list), ", теперь введите числа в следующую\n")

           break

       if (input_row_order > 0): #Переход на следующую строку с ввода "next"

           if (a == "next" and len(input_list) != len(main_list[input_row_order - 1])):

               print("Длина текущей строки не совпадает с длиной предыдущей (", len(main_list[input_row_order - 1]), "),введите строку заново")

               input_row_order -= 1

               break

           if (a == "next" and (len(input_list) == len(main_list[input_row_order - 1]))):

               print(input_list, "\nВы ввели", input_row_order + 1, "строку, теперь введите числа в следующую\n")

               main_list.append(input_list)

               break

   #Транспонирование матрицы

print("\nОсновная матрица\n")

for i in range(len(main_list)):

   print(main_list[i])

final_list = [[row[i] for row in main_list] for i in range(len(main_list[0]))]

print("\nТранспонированная матрица:\n")

for i in range(len(final_list)):

   print(final_list[i])

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