Что более всего влияет на цену компьютера

Самое главное-процессор

Больше всего влият на цену компьютера - процессор

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var g: =arrrandom(31,0,40); g.println;   writeln(g.indexmax+1) end. пример 38 34 15 11 2 33 12 39 12 0 32 23 7 18 22 31 0 6 19 15 24 37 26 12 7 9 20 25 21 18 20 8 // pascalabc.net 3.2, сборка 1407 от 18.03.2017 begin   var y: =readarrreal('2008: ',12);   var z: =readarrreal('2009: ',12);   var d: =y.average-z.average;   if d> 0 then writeln('2008 теплее')   else       if d< 0 then writeln('2009 теплее')       else writeln('оба года имеют одинаковую среднюю температуру') end. пример 2008: -12.7 -10.4 -2.3 5.7 12.5 19.6 24.1 22.8 19.9 17.6 8.2 -7.4 2009: -15.2 -9.4 1.6 7.1 13.5 17.1 26.3 21.4 17.5 14.2 10.1 -12.6 2008 теплее

Var f: text; a: array[1..7] of real; i,k,c,x: integer; s: string; begin   for i: =1 to 7 do     begin     readln(x);     a[i]: =x;     end;   assign(f,'file.txt');   rewrite(f);   for i: =1 to 7 do     begin     str(a[i],s);     writeln(f,s);     end;   close(f);   reset(f);   k: =0;   while not eof(f) do     begin     readln(f,s);     val(s,x,c);     if x< 0 then k: =k+1;     end;   close(f);   if k< > 0 then writeln('в массиве ',k,' отрицательных элемента(ов)');   else writeln('в массиве нет отрицательных элементов');   erase(f); end.