( Решение на Pascal )
Не совсем ясно, каким образом составители задачи планировали найти среди случайных вещественных 10 чисел в диапазоне от -60 до 100 числа, кратные 8.
Но ради Бога:
var A: array [1..10] of real;
var i,s: integer;
begin
s:=0;
randomize();
for i:=1 to 10 do
begin
A[i]:=random()*160-60;
write(A[i]:3:5,' ');
if (A[i]>10) and (A[i]-trunc(A[i])=0)
and (trunc(A[i]) mod 8 =0) then
s:=s+1;
end;
writeln();
writeln('Количество элементов массива,',
'кратных числу 8 и больших 10: ',s);
end.
![Дан одномерный массив A[10]. Элементы массива – это вещественные случайные числа большие -60 и меньш](/tpl/images/1121/2362/afcf4.jpg)
// Внимание! Если программа не работает, обновите версию!
type
Mountain=(string,integer);
procedure Print3Highs(t:array of Mountain);
begin
t.OrderByDescending(x->x[1]).Take(3).Println(NewLine)
end;
begin
var a:array of Mountain:=Arr(
Rec('Эльбрус',5642),
Rec('Винсон',4892),
Rec('Килиманджаро',5895),
Rec('Эверест',8848),
Rec('Аконкагуа',6959),
Rec('Мак-Кинли',6194));
Print3Highs(a)
end.
Результат
(Эверест,8848)
(Аконкагуа,6959)
(Мак-Кинли,6194)