Const
n = 10;

var
i, min, max: integer;
a: array[1..n] of integer;

begin
min := 1; max := 1;

for i := 1 to n do
begin
    a[i] := random(101);
    write(a[i]:4);
    if (a[i] > a[max]) then
      max := i;
    if (a[i] < a[min]) then
      min := i;
end;

i := a[max];
a[max] := a[min];
a[min] := i;

writeln();
for i := 1 to n do
    write(a[i]:4);

end.

0 0

3 года назад

Прочитать ещё 2 ответа

Задать одномерный массив Х, который содержит 14 элементов. Вычислить произведение D=K*L Где К-положительные элементы, а L-отрица

gorchenkoigor

Если в паскале то:
X: array[1..14] of integer/string/real/ и т.д.

var D, K, L : integer;
begin
d:=K*L
end.

0 0

3 года назад

В детском саду 52 ребенка. Каждый из них любит пирожное или мороженое. Половины детей любит пироженные, а 20 человек-пирожные и

PavMoz

По моему такая задача уже была. Ну ладно
1. Половина детей любит пирожное 52/2=26
2. Мы знаем, что 20 детей любит либо пирожное, либо пирожное и мороженое. Прибавим их к тем кто любит только пирожное 20+26=46
3. Оталось из всего количества детей вычесть полученный результат 52-46=6
Ответ: 6 - детей любит мороженое

0 0

4 года назад

Программа Кумир. Помогите, пожалуйста, произвести этот алгоритм:

Иван 100500

Ответ:

использовать Робот

алг

нач

нц пока сверху стена

вправо

кц

влево

нц пока сверху стена

закрасить

влево

кц

вверх

вправо

нц пока сверху свободно

вверх

кц

нц пока сверху стена

закрасить

вправо

кц

влево

кон

Объяснение:

0 0

3 года назад