Самое маленькое по размеру.
Если яблоко в руке больше, чем на столе то:
Положить яблоко во вторую корзину
Если меньше, то:
Оставить его на столе, а во вторую корзину положить предыдущее яблоко, которое лежало на столе.
Даны два массива, в одном - случайные числа, второй такого же размера, как и первый, но не содержит элементов.
Найти в первом массиве самый маленький элемент и присвоить переменной min - этот элемент. Все остальные - переместить во второй массив.
Программа:
var basket1, basket2:array[0..10] of integer;
min, i: integer;
begin
// Переменные по умолчанию 0, в таком случае не можем быть минимального числа.
// Но я знаю, что в массиве, максимальное число = 100. Возьмём его за минимальное - для сравнения.
min := 101;
// Заполняем первый массив случайными числами. От 0 до 100.
for i:=0 to 10 do
begin
basket1[i] := random(100);
basket2[i] := 0;
write(basket1[i]:3);
end;
writeln();
for i:=0 to 10 do
if basket1[i] < min then
begin
basket2[i] := min;
min := basket1[i];
end
else
basket2[i] := basket1[i];
writeln(min);
end.
Объяснение:
Здесь не надо писать программу. Я очень сомневаюсь, что в 9 классе нужно будет написать программу под это задание.
Строки которые начинаются с // - являются комментариями, их можно удалить.
ответ: python возможно при копирований будет давать ошибку, видимо, потому что не признает пробелы которые использует "Знания". А так Алгоритм и код полностью рабочие(замени пробелы на свои, если будешь копировать)
a)
text = input("Введите текст: ")
c = ''
while len(ch) != 1:
c = input("Введите букву: ")
is_c_in_text = False
for i in text:
if i == c:
is_c_in_text = True
if is_c_in_text:
print("буква \"" + c + "\" содержится в ранее введенном тексте")
else:
print("буква \"" + c + "\" отсутсвует в тексте")
б)
text = input("Введите текст:")
word = input("Введите слово:")
i = 0
is_word_in_text = False
while i < len(text):
j = 0
while j < len(word):
if word[j] != text[i + j]:
break
elif j == len(word) - 1:
is_word_in_text = True
j += 1
i += 1
if is_word_in_text:
print(f"слово \"{word}\" было в тексте(или содержалось в другом слове, как его часть)")
else:
print(f"слова \"{word}\" не было в тексте")
в)
text = input("Введите текст:")
word = input("Введите слово:")
i = 0
cnt = 0
while i < len(text):
j = 0
while j < len(word):
if word[j] != text[i + j]:
break
elif j == len(word) - 1:
cnt += 1
j += 1
i += 1
print(f"слово \"{word}\" встречалось в тексте {cnt} раз(а)")
Объяснение:
var
a:array of integer;
i,n,max:integer;
begin
write('Кол-во эл. в массиве: '); readln(n);
max:=-20;
setlength(a,n);
for i:=0 to n-1 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>max then
max:=a[i];
end;
writeln;
writeln('Max: ',max);
end.