Потому что на компьютер могут упасть крошки,или разлиться вода,и в итоге компьютер может поломаться(точнее клавиатура)короче говоря,лучше не ешьте за компьютером..
Основные свойства алгоритмов следующие: 1. Понятность для исполнителя — исполнитель алгоритма должен понимать, как его выполнять. Иными словами, имея алгоритм и произвольный вариант исходных данных, исполнитель должен знать, как надо действовать для выполнения этого алгоритма. 2. Дискpетность (прерывность, раздельность) — алгоpитм должен пpедставлять пpоцесс pешения задачи как последовательное выполнение пpостых (или pанее опpеделенных) шагов (этапов). 3. Опpеделенность — каждое пpавило алгоpитма должно быть четким, однозначным и не оставлять места для пpоизвола. Благодаpя этому свойству выполнение алгоpитма носит механический хаpактеp и не тpебует никаких дополнительных указаний или сведений о pешаемой задаче. 4. Pезультативность (или конечность) состоит в том, что за конечное число шагов алгоpитм либо должен пpиводить к pешению задачи, либо после конечного числа шагов останавливаться из-за невозможности получить решение с выдачей соответствующего сообщения, либо неограниченно продолжаться в течение времени, отведенного для исполнения алгоритма, с выдачей промежуточных результатов. 5. Массовость означает, что алгоpитм pешения задачи pазpабатывается в общем виде, т.е. он должен быть пpименим для некотоpого класса задач, pазличающихся лишь исходными данными. Пpи этом исходные данные могут выбиpаться из некотоpой области, котоpая называется областью пpименимости алгоpитма.
У тебя много лишнего в куске программы. Ещё мне непонятно зачем ты выводишь числа делённые на 4, значения у них не изменилось в массиве. Хочу пояснить кое какие операции: write () или writeln () -выводят числа read () или readln () - вводят элементы end. -программа обязательно заканчивается на end с точкой.
const n=10; var a: array [1..n] of integer; i, s1,S2: integer; begin for i := 1 to n do begin a[i] := Random(100); Write(a[i],' '); end; for i:=1 to n do if i<(n/2) then S1:=S1+a[i] else S2:=S2+a[i];
writeln;
if S1<>S2 then if s1<s2 then write (s1,'<',s2) else write (s1,'>',s2) else write (S1,'=',s2) end. Если нужно что-то изменить или пояснить пиши.
