Если в компьютере одновременно запущено большое количество программ, то компьютеру нужно затрачивать на их обработку большое количество оперативной памяти. Не во всех компьютерах достаточное количество оперативной памяти что бы обрабатывать большое количество программ, из этого следует вывод, что, когда запущено много программ одновременно это не очень хорошо. Но все меняется, если на вашем компьютере достаточное оперативной памяти, если вам удобно использовать много программ сразу, то это хорошо.
Var A: array[1..200] of byte; i, N, cTwo, cThree, cFour, cFive: byte; begin write('Введите количество учеников(N): '); readln(N); randomize; writeln('Все оценки за экзамен.'); for i := 1 to N do begin A[i] := random(4)+2; if A[i] = 2 then cTwo := cTwo + 1; if A[i] = 3 then cThree := cThree + 1; if A[i] = 4 then cFour := cFour + 1; if A[i] = 5 then cFive := cFive + 1; write(A[i], ' '); end; writeln(''); writeln('Оценку 2 получили ', cTwo, ' уч.'); writeln('Оценку 3 получили ', cThree, ' уч.'); writeln('Оценку 4 получили ', cFour, ' уч.'); writeln('Оценку 5 получили ', cFive, ' уч.'); writeln; end.
1кб=1024байт
1байт=8бит