// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,1,10); a.Println;
a:=a.Reverse.ToArray; a.Println;
end.
Пример:
n = 10
5 4 2 1 3 8 2 2 5 2
2 5 2 2 8 3 1 2 4 5
Var
s:real;
n,i:integer;
a:array[1..1000] of real;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы: ');
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i];
writeln('Сумма: ',s);
end.
В прошлом году у меня было похожее задание - 15,8,6
* - это все возможные названия и форматы
т. е. *. это все возможные названия файлов, и..
.* - это все возможные форматы файлов (exe, txt, dll...)
Итог *.* - все возможные названия файлов и все возможные форматы.
program numbers;
var x, y: integer;
begin
writeln('Введите число.');
read(x);
if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');
end.