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

Визначити мінімальний елемент, розташований до першого від'ємного елемента Паскаль АБС​
Если что это масивы

👇
Открыть все ответы
Ответ:
Yxxxzy
Yxxxzy
26.02.2021
1.

const n=10;
var a:array[1..n] of integer;
i,min,max:integer;
begin
for i:=1 to n do a[i]:=random(50);
for i:=1 to n do write(a[i]:4);
writeln;
min:=32000; max:=-32000;
for i:=1 to n do
if a[i]<min then min:=a[i]; 
for i:=1 to n do 
if a[i]>max then max:=a[i];
writeln('минимальный элемент массива = ',min);
writeln('максимальный элемент массива= ',max);
end.

2.

const n=10;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(20);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n-1 do begin
for j:=1 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p; 
end;
end;
for i:=1 to n do write(a[i]:4);
end.
4,6(25 оценок)
Ответ:
melitatomashko
melitatomashko
26.02.2021

Программа:

X = [int(input("Введите элемент: ")) for _ in range(10)]

print("\n")

Y = [int(input("Введите элемент: ")) for _ in range(10)]

S = [el_X for el_X in X for el_Y in Y if el_X == el_Y]

print(S)

Если программа выше сложна для понимания, предложу её в другом виде:

X = []

Y = []

for _ in range(10):

   num = int(input("Введите цифру: "))

   X += [num]  # То же, что и X.append(num)

print("\n")

for _ in range(10):

   num = int(input("Введите цифру: "))

   Y += [num]  # То же, что и Y.append(num)

S = []

for el_X in X:

   for el_Y in Y:

       if el_X == el_Y:

           S += [el_X]

print(S)

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