Пожаловаться
- 10.08.2018 15:57
- Информатика
- remove_red_eye 5098
- thumb_up 45
Ответы и объяснения 2
Var a: array [1..20] of integer;
i,j : integer;
buf : integer;
cnt : integer;
begin
for i:=1 to 20 do begin
a[i] := random(100)+200;
write(a[i],' ');
end;
for i:=1 to 20 do
for j:= 1 to 20 do
if(a[i]
buf := a[i];
a[i]:= a[j];
a[j]:= buf;
end;
writeln();
writeln('top --> ',a[20],' ',a[19],' ',a[18]);
end.
i,j : integer;
buf : integer;
cnt : integer;
begin
for i:=1 to 20 do begin
a[i] := random(100)+200;
write(a[i],' ');
end;
for i:=1 to 20 do
for j:= 1 to 20 do
if(a[i]
buf := a[i];
a[i]:= a[j];
a[j]:= buf;
end;
writeln();
writeln('top --> ',a[20],' ',a[19],' ',a[18]);
end.
Пожаловаться
- 11.08.2018 11:50
- thumb_up 11
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,350,430); a.Println;
a.OrderByDescending(t->t).Take(3).Println
end.
Пример
403 416 364 382 390 365 357 428 387 414 395 420 428 423 364 383 397 391 422 392
428 428 423
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,350,430); a.Println;
a.OrderByDescending(t->t).Take(3).Println
end.
Пример
403 416 364 382 390 365 357 428 387 414 395 420 428 423 364 383 397 391 422 392
428 428 423
Пожаловаться
- 12.08.2018 23:46
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы