Перечислите наиболее важные характеристики эвм

выберите один ответ:
1. быстродействие процессора, объем оперативной памяти, набор команд, число подключаемых периферийных устройств, число параллельно работающих процессоров
2. число подключаемых периферийных устройств, число параллельно работающих процессоров
3. потребление электроэнергии, стоимость, число параллельно работающих процессоров
4. объем оперативной памяти, набор команд, число подключаемых периферийных устройств, вес, габариты

var

 A: array [1..40] of Integer;

 i, c: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных чисел:');

   for i := 1 to 40 do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

   c := 0;

   for i := 1 to 40 do begin

     if (A [i] mod 2  <> 0) and (A [i] mod 3 = 0) then   // первое условие - проверка на нечетность, второе - делимость на 3

     Inc (c);

   end;

   Writeln;

   WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));

end.

const N = 100;

var a: array [1..N] of integer;  

       i, count, sum, p: integer;

       arith: real;

       mult: biginteger;

begin

       randomize;

       for i:= 1 to N do a[i]:= random(1, 1000);

       sum:= 0;

       for i:= 1 to N do begin

           if a[i] mod 2 = 0 then begin

               inc(count);

               sum:= sum + a[i];

               arith:= sum / count;

           end;

           if a[i] mod 2 = 0 then begin

               p:= a[i] * a[i];

               if mult = 0 then mult:= p else mult:= mult * p;

               // Произведение капец длинное

               if a[i] mod 3 = 0 then a[i]:= i * i;

           end

       end;

      writeln(arith);

      writeln(mult);

end.