Язык Python
A = []
for i in range(7):
A.append(int(raw_input("Введите %s число"%(i+1,))))
print sorted(A, reverse=True)
const
n = 30;
var
a: array [1..n] of integer;
s, i: integer;
begin
for i := 1 to n do
begin
a[i] := random(151) + 50;
writeln('Дом ', i, ' = ', a[i]);
end;
for i := 1 to n do
s := s + a[i];
writeln('Всего ', s);
end.
<em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
R=(string,integer);
begin
var a:=ReadAllLines('input.txt');
var L:=new List<R>;
foreach var s in a do begin
var w:=s.ToWords.ToArray;
if w[2]>'80' then L+=(w[1][1]+'. '+w[0],w[2].ToInteger);
end;
var f:=OpenWrite('output.txt');
L.OrderByDescending(x->x[1]).ForEach(x->Writeln(f,x[0],' ',x[1]));
f.Close
end.
1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.
var
num:integer;
begin
readln(num);
if (num < 62) then write('Легкая')
else if (num <= 74) and (num >= 62) then write('Средняя')
else if (num >=75) and (num <= 87) then write('Тяжелая')
else write('Сверхтяжелая');
