Самое маленькое по размеру.
Если яблоко в руке больше, чем на столе то:
Положить яблоко во вторую корзину
Если меньше, то:
Оставить его на столе, а во вторую корзину положить предыдущее яблоко, которое лежало на столе.
Даны два массива, в одном - случайные числа, второй такого же размера, как и первый, но не содержит элементов.
Найти в первом массиве самый маленький элемент и присвоить переменной 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 классе нужно будет написать программу под это задание.
Строки которые начинаются с // - являются комментариями, их можно удалить.
При использовании большого количества терминов и других пояснений в текстовом документе, в конец каждой страницы рекомендуется добавлять примечания. К объясняемому слову или фразе добавляется цифра, под которой вы сможете найти определение в конце листа. Совершать подобные действия вручную не очень удобно, особенно если документ имеет несколько десятков страниц. Далее мы расскажем, как делать сноски в Word в автоматическим режиме.
Как вставить сноску в текст в Word 2003, 2007, 2010
Пошаговая инструкция:
Поставьте курсор мышки на то место, куда необходимо вставить сноску.
Откройте раздел под названием «Ссылки» и выберите в нем команду «Вставить».
В самом низу страницы появится цифра, возле которой следует ввести поясняющий комментарий.
Чтобы вставить следующую сноску в Word, проделайте первые три действия.
В Microsoft Word 2003 изначально следует открыть «Ссылки/Сноски», а после – находить необходимое слово, выставлять возле него курсор и нажимать кнопку «Вставить». Т.е. алгоритм действий немного другой.
Как удалить сноску в Word
Для удаления пояснений следует установить мигающий курсор возле цифры и нажать Delete дважды, либо выделить символ и единожды клацнуть Delete.
Объяснение:
я иисус
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.