1. Не используя программу, сравните пары слов: парта-парк ПОЧТА-spam 55-66 ПАрта-Парк ПО4та-ПОЧта 9-128 СПАМ-Spam почТА-Post 2.Вспомните, чем отличается запись s='e' от записи s:='e' . Запишите решение этой задачи, используя цикл пока (while).
Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandom(20,-99,99); a.Println; a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println end.
Замечание: Если стоит задача получить именно массив, а потом его вывести, можно написать так: // PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandom(20,-99,99); a.Println; a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray; a.Println end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(20,-99,99); a.Println;
a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.
Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3
Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(20,-99,99); a.Println;
a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
a.Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(100,-99,99); a.Println;
Writeln('Сумма 10 самых маленьких чисел ',a.Sorted.Take(10).Sum)
end.
Пример
-61 91 33 86 -69 88 -86 60 -78 -63 -30 -39 -33 24 -94 -11 -26 18 59 -9 -82 50 9 28 -34 -8 5 46 59 25 -19 92 -1 93 50 -33 -94 -19 -26 -43 21 -54 -27 -59 80 -95 12 2 -23 93 99 -30 44 -51 61 -12 -18 -94 20 39 -16 -32 -98 -4 55 -22 61 -26 73 39 -16 93 -55 3 69 72 -23 -31 48 -38 79 -96 -30 65 26 -88 -51 -49 -68 -38 84 -99 60 34 72 -46 -55 77 -15 2
Сумма 10 самых маленьких чисел -926