Ну и можешь добавить writeln(a); если вывести надо
Для связи основных устройств компьютера между собой используется специальная информационная магистраль, обычно называемая инженерами шиной. Шина состоит из трех частей:
шина адреса, на которой устанавливается адрес требуемой ячейки памяти или устройства, с которым будет происходить обмен информацией;
шина данных, по которой собственно и будет передана необходимая информация; и, наконец,
шина управления, регулирующей этот процесс (например, один из сигналов на этой шине позволяет компьютеру различать между собой адреса памяти и устройств ввода/вывода) .
Рассмотрим в качестве примера, как процессор читает содержимое ячейки памяти. Убедившись, что шина в данный момент свободна, процессор помещает на шину адреса требуемый адрес и устанавливает необходимую служебную информацию (операция – чтение, устройство – ОЗУ и т. п. ) на шину управления. Теперь ему остается только ожидать ответа от ОЗУ. Последнее, “увидев” на шине обращенный к нему запрос на чтение информации, извлекает содержимое необходимой ячейки и помещает его на шину данных. Разумеется, реальный процесс значительно подробнее, но нас сейчас не интересуют технические детали. Особо отметим, что обмен по шине при определенных условиях и при наличии определенного вспомогательного оборудования может происходить и без непосредственного участия процессора, например, между устройством ввода и внутренней памятью.
Var
i, s: integer;
begin
s := 0;
for i := 15 to 25 do s := s + sqr(i);
Writeln('s=', s)
end.
Тестовое решение:
s=4510
***********************************
const
n = 10;
var
i, k: integer;
a: array[1..n] of integer;
begin
Randomize;
k := 0;
Write('Массив данных: ');
for i := 1 to n do
begin
a[i] := Random(26);
Write(a[i]:3);
if a[i] > 12 then k := k + 1
end;
Writeln(#13#10, 'k=', k)
end.
Тестовое решение:
Массив данных: 0 21 20 8 14 15 25 11 2 20
k=6