Лучшие в Сентябре 2017 г.
Связанных вопросов не найдено

Объясните эту программу. Пожалуйста.

0
program Ins;
var
 mass:array [1..100] of real;
 i, j, n: integer;
 x: real;
begin
 read(n);
 for i:=1 to n do
 read(mass[i]);

 for i := 2 to n do
 begin
 x := mass[i];
 j := i-1;
 while (j>0) and (x<mass[j]) do
 begin
 mass[j+1] := mass[j];
 j := j-1;
 end;
 mass[j+1] := x;
 end;
 for i:=1 to n do
 write(mass[i]:8:2);
end.
21 апреля аноним,  в категории Компьютеры, Интернет
 
Ваш ответ
Отображаемое имя (по желанию):
Анти-спам проверка:

2 Ответы
0
21 апреля аноним, 
Позволяет ввести определенное количество чисел, а потом ищет из них наибольшее
0
21 апреля аноним, 
Зах тебе?
Copyright © 2016 Вопросы и ответы онлайн - sovety.info | Для связи: site@sovety.info
Мнение редакции может не совпадать с мнением авторов вопросов и ответов.
Индекс цитирования
...