<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(30,-30,94,45,-6,1,2,-50,25,-84,-55,-33,-31,-66,
34,72,26,-3,-13,27,-97,57,-42,29,-9);
Writeln('Исходный массив'); a.Println;
Sort(a);
Writeln('Упорядоченный по возрастанию массив'); a.Println;
Writeln('Максимальный элемент ',a.Last,', минимальный ',a.First)
end.
<u>Пример</u>
Исходный массив
30 -30 94 45 -6 1 2 -50 25 -84 -55 -33 -31 -66 34 72 26 -3 -13 27 -97 57 -42 29 -9
Упорядоченный по возрастанию массив
-97 -84 -66 -55 -50 -42 -33 -31 -30 -13 -9 -6 -3 1 2 25 26 27 29 30 34 45 57 72 94
Максимальный элемент 94, минимальный -97
3 раза налить воду в трехлитровый и выливать каждый раз в восьмилитровый. В третий раз вся вода не влезет, в трехлитровом останется 1 литр. Затем опустошить восьмилитровый, вылить туда один литр из трехлитрового. Затем еще два раза принести по 3 литра из маленького кувшина. Профит.
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
p: real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write(p);
end.
Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.
Для считывания текстового файла с диска необходимо указать: (Б) Имя файла
