Массив целых чисел из 12 элементов. Заполнить случайным образом, упорядочить по возрастанию.

Знания

Информатика

1 ответ:

Lilu000 [14]3 года назад

0 0

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(12,10,99); a.Println;
a.Sorted.Println;
end.

Тестовое решение
78 89 48 47 80 52 42 30 13 55 16 53
13 16 30 42 47 48 52 53 55 78 80 89

Читайте также

Составьте программу, которая удаляет первое слово строки s. Строка s, состоящая из двух слов, разделенных пробелами, вводиться с

Георг12356 [10]

Pogram ypr;
Var s:string;
p:integer;
begin
readln(s);
p:=pos(' ',s);
delete(s,1,p);
writeln(s);
end.

0 0

4 года назад

Составьте программу которая выводит частное от деления nнатуральных чисел на 2

al75

# Код на ruby 2.2.3p173
def zadanie(n)
    for i in 1..n
        p i.to_f / 2
    end
    return ""
end

# Примеры применения
p zadanie(11)

0 0

1 год назад

Заполнить массиа 20 случайных числами в интервале от 10 до 100 и вывести все элементы массива увеличенные на 50

Valeriyanka [17]

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,10,100); a.Println;
a.Select(x->x+50).Println
end.

Пример
24 22 31 78 68 99 82 27 83 15 84 71 14 11 14 59 83 80 24 90
74 72 81 128 118 149 132 77 133 65 134 121 64 61 64 109 133 130 74 140

0 0

4 года назад

Решите задачу ПОЖАЛУЙСТА!С 1 циклом For В первый час роботы рачий изготавливает 20 деталей,за каждый последующий час на 3 детале

Katya2002 [1]

Var
a,b,c:integer;
begin
a:=20;
c:=0;
for b:=1 to 8 do begin
c:=c+a;
a:=a+3;
end;
write('Количество деталей=',c);
end.

0 0

4 года назад

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

Что значит " Моё тело это храм? "

igor6

В твоем теле скапливается всё, что принимал из вне. Ты можешь его сохранить, как самый настоящий храм или же превратить в СИЗО.

0 0

4 года назад