var
i,j: integer;
x: real;
a : array [1..10] of real;
begin
for i := 1 to 10 do read (a[i]);
for i := 2 to 10 do
begin
for j := 10 downto i do
if a[j-1]>a[j] then
begin
x := a[j-1];
a[j-1] := a[j];
a[j] := x;
end;
end;
for i := 1 to 10 do write (a[i], ' ');
end;
var
a : array [1..10] of integer;
i, c, sum : integer;
begin
for i := 1 to 10 do read (a[i]);
c := 0; sum := 0;
for i := 1 to 10 do
if a[i] > 0 then
begin
inc (c);
inc (sum, sqr (a[i]));
end;
writeln (sum / c);
end.
1) Роднина и биология 86 ≥ химия 74
2) Черепанова или (Биология 92 ≥ Химия 83)
3) Математика 74 ≥ 60 или (Информатика 43 ≤ 60)
4) Математика 94 ≥ 60 и информатика 64 ≥ 60
Const
max = 20;
var
i:byte;
sum:real;
begin
writeln();
sum:=0;
i:=1;
while i<=max do begin
sum:= sum + i / (i+1);
i:=i+1;
end;
writeln('1/2+2/3+3/4+4/5+...+',max,'/',max+1,' = ', sum);
end.
Для обработки данных нужны компьютер, процессор. (По идее только процессор, меня смущает множественное число)
k:=1;
n:=0
for k to 100 do
begin
n:=n+1;
a:=1/n;
sum:=sum+a;
end;
примерно так (pascal долго качается так что я пока не проверял + если это из задачника там есть ответы с пояснением, удачи)