Составить кроссворд на тему "устройства пк" состоящий из 10 слов. !

1-последовательность команд которую  выполняет компьютер при обработке данных(программа) 2-программа  или данные имеющие имя и хранящиеся в долговременной памяти(файл) 3-название системы воздушного охлаждения(кулер) 4-сложная многослойная плата являющаяся основой построения вычислительной системы(материнская плата) 5-электронные и механические части вычислительного устройства(аппаратное обеспечение) 6-программа с которой пользователь решает свои прикладные (приложение) 7-устройство памяти(жесткий диск) 8-отдельное  устройство пк выполняющее графический рендеринг(графический интерфейс) 9-характеристика скорости выполнения определенных функций на пк(производительность) 10-доступные пользователю папки и файлы на локальном компьютере и в компьютерных сетях(информационное пространство)

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

 

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;