+ в большенстве форматов можно править + можно скопировать сколько угодно раз + можно пересылать по электронной почте и тп. + можно распечатать + в большенстве форматов можно покопировать по частям + можно перевести с с электронного переводчика + не занимает много физического места + меньше подвержен порче от физических факторов (типа помять, порвать, ...)
- требует некого устройства для чтенья - требует электричества/энергии для просмотра - нельзя подтереться в туалете, разжечь огонь, написать заметку, завернуть рыбу - изза копирования может иметь кучу различных вариантов и нужно дополнительно выяснять, где последние правки, а что есть устаревшая копия, мердж и тп - трудно уследить за распрастранением документа
begin i := 1; {порядковый номер введенного с клавы числа} readln(n); {считываем число в клавиатуры} min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум} mini := i; {присваеваем порядковый номер минимума}
repeat{повторяем} i := i + 1; {порядковый номер введенного с клавы числа} readln(n); {считываем число в клавиатуры} if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум} min := n; {присваеваем минимуму число} mini := i;{присваеваем порядковый номер минимума} end; until n = 0;{до тех пор пока n=0}
+ можно скопировать сколько угодно раз
+ можно пересылать по электронной почте и тп.
+ можно распечатать
+ в большенстве форматов можно покопировать по частям
+ можно перевести с с электронного переводчика
+ не занимает много физического места
+ меньше подвержен порче от физических факторов (типа помять, порвать, ...)
- требует некого устройства для чтенья
- требует электричества/энергии для просмотра
- нельзя подтереться в туалете, разжечь огонь, написать заметку, завернуть рыбу
- изза копирования может иметь кучу различных вариантов и нужно дополнительно выяснять, где последние правки, а что есть устаревшая копия, мердж и тп
- трудно уследить за распрастранением документа
mini, min, n, i: integer;
begin
i := 1; {порядковый номер введенного с клавы числа}
readln(n); {считываем число в клавиатуры}
min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум}
mini := i; {присваеваем порядковый номер минимума}
repeat{повторяем}
i := i + 1; {порядковый номер введенного с клавы числа}
readln(n); {считываем число в клавиатуры}
if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}
min := n; {присваеваем минимуму число}
mini := i;{присваеваем порядковый номер минимума}
end;
until n = 0;{до тех пор пока n=0}
writeln('index = ', mini);
end.
Что еще не понятно?