прикреплённый файл:

компьютерная память

внутренняя (оперативная) – быстрая, прямого доступа
энергозависима, хранит и которую обрабатывает процессор.

структура
1 свойство дискретность – память дискретна, состоит из битов.

бит – минимальная структурная единица памяти, хранящая один двоичный знак.

1. | 0 | 1 | 1 | 0 | 0 | 0 | 1 | 0 |

2. | 1 | 0 | 0 | 0 | 1 | 1 | 1 | 1 |

адрес. байт – минимальная адресуемая единица памяти, 1 байт = 8 бит, каждый байт имеет свой адрес.

2 свойство адресуемость – занесение и извлечение информации изи памяти происходит по адресам.

внешняя – накопитель и носитель информации.

накопитель (дисковод) – устройство чтения с носителя и записи на носитель.

магнитная память.

1.накопитель – стример, носитель – магнитная лента.
2.накопитель – дисковод, носитель – магнитный диск. гибкий магнитный диск не используется. жесткий магнитный диск – накопитель и носитель в одном корпусе, как правило встроен в системный блок.

оптическая память
1.cd-rom – compact disk – read only memory (только для чтения)
2.cd-rw – rewritable (перезаписываемые)
3. cd-r – recorder (однократная запись)

электронная память
1.карта памяти (картридер)
2.флешка

​

program GradesFinder;

var

 grades: array[Integer] of Integer;

 gradesCounter: array[3..5] of Integer = (0,0,0);

 gradesSum: Integer = 0;

 mostCommonGradeCounter: Integer = 0;

 mostCommonGrade: Integer = 0;

 i: Integer;

begin

 Randomize;

 writeln('Оценки учеников:');

 for i:=0 to 19 do

 begin

   grades[i] := 3 + Random(3);

   writeln(i+1,': ',grades[i]);

   gradesCounter[grades[i]] := gradesCounter[grades[i]] + 1;

   gradesSum := gradesSum + grades[i]

 end;

 writeln('Число отметок 5: ', gradesCounter[5]);

 writeln('Средний бал: ', gradesSum/20:2:1);

 write('Болше всего получено: ');

 for i := 3 to 5 do

   if mostCommonGradeCounter < gradesCounter[i] then

   begin

     mostCommonGrade := i;

     mostCommonGradeCounter := gradesCounter[i];

   end;

 writeln(mostCommonGrade);

end.

Объяснение:

program Arrays;

var

 input: array[Integer] of Integer;

 i: Integer;

 largestElement: Integer = 0;

 smallestElement: Integer = 999;

 smallestElementPosition: Integer = 18;

begin

 Randomize;

 for i:=0 to 18 do

   input[i] := Random(700);

 writeln('Весь массив:');

 for i:=0 to 18 do

 begin

   writeln(i, ': ', input[i]);

   if largestElement < input[i] then

     largestElement := input[i];

   if smallestElement > input[i] then

   begin

     smallestElement := input[i];

     smallestElementPosition := i;

   end;

 end;

 writeln('Наибольший элемент массива:', largestElement);

 writeln('Позиция наименьшего элемента:', smallestElementPosition);

end.