//Прошу прощения за "пузырёк"
//Pascal ABC.NET 3.1 сборка 1219
Const n=5; //количество вершин
Type
ty=record
x:integer;
y:integer;
end;
Var
ar:array[1..n] of ty;
i,j:integer;
begin
for i:=1 to n do
begin
write('Абсцисса точки №',i,':');readln(ar[i].x);
write('Ордината точки №',i,':');readln(ar[i].y);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i].x>ar[j].x then swap(ar[i],ar[j]);
for i:=1 to (n div 2)-1 do
for j:=i+1 to n div 2 do
if ar[i].y<ar[j].y then swap(ar[i],ar[j]);
for i:=n div 2+1 to n-1 do
for j:=i+1 to n do
if ar[i].y>ar[j].y then swap(ar[i],ar[j]);
ar.reverse.Print;
end.
Пример ввода:
Абсцисса точки №1:1
Ордината точки №1:2
Абсцисса точки №2:2
Ордината точки №2:1
Абсцисса точки №3:-3
Ордината точки №3:-3
Абсцисса точки №4:3
Ордината точки №4:3
Абсцисса точки №5:3
Ордината точки №5:1
Пример вывода:
(3,3) (3,1) (2,1) (-3,-3) (1,2)
3*3+3/3=4
3+3/3+3=5
3+3+3-3=6
3/3+3+3=7
-
3*3-3+3=9
-
1+2/3=1
1*2+3-4=1
1+2*3-4/5=1
1*2+3-4+5/6=1
1+2*3-4/5+6/7=1
1*2+3-4+5-6-7+8=1<span>
</span>
Program a;
uses crt;
var i:integer;
a: array [1..100] of real;
s: real;
begin
clrscr;
for i:=1 to 100 do begin
readln (a [i]);
s:=s+a [i];
end;
writeln (s);
end.
var a:array[1..100] of integer;
Begin
randomize; {чтоб рандом был разный для каждого запуска програмы}
for i:= 1 to 100 do
if i mod 2 =0 then a[i] := 2*random(100)+1; {формула нечетного числа}
else a[i]:=2*random(100);
End.
Есличто непонятно - пиши в сообщения, растолкую
Задание 1:
Строку 1 и столбец A заполняете единицами. В ячейку B2 вводите формулу =A2+B1, затем её копируете (делаете протяжку)
Задание 2:
Строку 1 и столбец A заполняете по образцу (0 и 1). В ячейку B2 вводите формулу =A1+B1, затем её копируете (делаете протяжку)