var r:real;
begin
write ('Введите радиус окружности: ');
read(r);
writeln ('Диаметр равен: ', r*2:0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.
Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
<em>Все решения даны в системе программирования</em>
<em>PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
var im:=a.IndexMax;
Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.
<u>Пример</u>
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16
<u>№2</u>
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
Sort(a,(x,y)->x>y);
a.Println
end.
<u>Пример</u>
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4
<u>№3</u>
begin
var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
Sort(a,(x,y)->x>y); a.Println
end.
<u>Пример</u>
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53
<u>№4</u>
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
var b:=a.Where(x->x>0); b.Println
end.
<u>Пример</u>
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21