Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
koskol84p08pdw
18.12.2022 08:29 •
Информатика
Написать задачу в Паскале. 9 класс.
Найти произведение нечетных элементов двумерного массива целых чисел.
👇
Увидеть ответ
Открыть все ответы
Ответ:
pollyholly123
18.12.2022
Var
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.
4,8
(1 оценок)
Ответ:
liliyaabramova1
18.12.2022
задача 1.
a=input().split()
f=-1
for i in range(len(a)):
if int(a[i])>0 and int(a[i])%2==0:
if f==-1:
min1=int(a[i])
max1=int(a[i])
f=1
elif int(a[i])>max1:
max1=int(a[i])
elif int(a[i])<min1:
min1=int(a[i])
if f==-1:
print('not solution')
else:
print('max=',end='')
print(max1)
print('min=',end='')
print(min1)
задача 2.
a=input().split()
k=0
max1=float(a[0])
for i in range(len(a)):
if float(a[i])==max1:
k+=1
elif float(a[i])>max1:
k=1
max1=float(a[i])
print(k)
задача 3.
a=input().split()
min1=float(a[0])
min2=float(a[0])
min3=float(a[0])
for i in range(len(a)):
if float(a[i])<min1:
min3=min2
min2=min1
min1=float(a[i])
elif float(a[i])<min2:
min3=min2
min2=float(a[i])
elif float(a[i])<min3:
min3=float(a[i])
print(min1)
print(min2)
print(min3)
4,8
(12 оценок)
Это интересно:
К
Компьютеры-и-электроника
05.08.2021
Секреты успешной презентации: Как создать эффективную презентацию в PowerPoint?...
С
Стиль-и-уход-за-собой
13.08.2021
Секреты получения и сохранения красивого загара в домашних условиях...
Д
Дом-и-сад
02.09.2022
Как посадить дерево: советы от опытных садоводов...
О
Образование-и-коммуникации
15.03.2022
Квантовая физика: с чего начать, чтобы понять ее?...
З
Здоровье
20.08.2020
Как безболезненно сесть в позу лотоса: советы йогов и научное объяснение...
К
Компьютеры-и-электроника
20.12.2022
Как рассчитать наклон линии линейной регрессии в Excel: шаг за шагом...
Д
Дом-и-сад
16.09.2021
Как очистить потолок от копоти: лучшие методы и рекомендации...
К
Компьютеры-и-электроника
20.03.2023
Как легко и быстро писать текстовые сообщения через Gmail...
Д
Дом-и-сад
20.04.2023
Как правильно выбрать и купить матрас из пены с памятью?...
К
Компьютеры-и-электроника
01.01.2021
Как перейти с платной версии AVG на бесплатную (в Windows)...
Новые ответы от MOGZ: Информатика
ustinlox
08.06.2020
Укажите, размер единицы двоичного кода для: килобайта, мегабайта, гигабайта, терабайта....
MeowthCopyright
24.02.2021
Кто, где и когда создал: барабанную дробь (как средство сигнальной связи); гонцов; телевизионные сети а) проводные б) беспроводные. !...
rkzxzvty2343
15.12.2022
Додати графічні файли можна за вкладки вид вставлення головна дизайн...
hippol
30.12.2022
Решить 2 задачи: 1. Дан массив из 8 элементов. Вывести те элементы, которые кратны 5. Элементы вводятся с клавиатуры. 2. Дан массив из 10 элементов. Вывести положительные...
sgerbst
04.05.2022
Напишите программу, которая позволяет ввести три вещественных числа и выводит на экран: сумму всех трех чисел; модуль разности первого и второго чисел; целую часть...
alyonabursina
04.05.2022
Напишите программу, которая для трех случайных чисел выводит на экран ответ на следующий вопрос: правда ли, что первое число равно сумме второго и третьего. ответ...
soymapoIina
05.11.2022
Дано трехзначное число abc. напишите программу, позволяющую вывести на экран следующее двузначное число: a(b+c)....
kukuruza2001
05.11.2022
Есть абсолютно темная комната, посередине комнаты находится круглый стол. на столе в случайном порядке разложена колода из 52 игральных карт. 10 из них лежат рубашкой...
nataly163
10.11.2020
Кто может напечатать календарь в ворде на 2014год и скинуть мне на почту...
hamkarmik225
10.11.2020
Стехническим вопросом! мы включили большой компьютер (сам то он работает), но а вот экран не включается. системный блок шумит, а экран тёмный. мы проверили все проводки....
MOGZ ответил
Сделать синтаксический разбор. 1)уча других, также учишься. 2)посреди...
Решить : з 1.сравните электроотрицательность у данных пар неметаллов...
Решите уравнение cos2x+sin^2x=0.75 и укажите корни промежутка...
Для компота берут 6 частей яблок 5 частей груш и 3 части слив....
Вкаком предложении есть пунктуационная ошибка? 1)старушка,отложив...
Ширина листа жести 50 см, длина 80 см. сколько краски нужно, чтобы...
Лошадь съедает стог сена за четверо суток, корова может съесть...
Через кран в бассейн вливается в минуту 300 литров воды, а через...
За тетради заплатили в 4 раза больше или на 72 р. больше, чем...
Іть з прямої в непряму: 1) my classmate says to us, i was in edinburgh...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.