Переведите на с++ type mas = array [1..1000] of integer; var a: mas; i, k, j, max: integer; begin readln(max); readln(k); for i := 1 to k do read(A[i]); for i := 1 to k do if a[i] >= max then begin j += 1; max := A[i] + 3; end; writeln(j); end.

Установка и загрузка операционной системы.
Операционные системы распространяются в форме дистрибутивов на оптических дисках. В первую очередь, необходимо провести установку операционной системы, в процессе которой файлы операционной системы копируются с оптического диска дистрибутива на жесткий диск компьютера.После установки файлы операционной системы хранятся в долговременной памяти на жестком диске, который называетсясистемным. Однако программы (в том числе операционная система) могут выполняться, только если они находятся в оперативной памяти компьютера. Поэтому необходима загрузка файлов операционной системы с системного диска в оперативную память.Загрузка операционной системы начинается в одном из трех случаев — в результате:включения питания компьютера;нажатия кнопки Reset на системном блоке компьютера;одновременного нажатия комбинации клавиш {Ctrl}+{Alt}+{Del} на клавиатуре.В процессе загрузки операционной системы сначала производится тестирование работо процессора, памяти и других аппаратных средств компьютера, причем краткие диагностические сообщения о процессе тестирования выводятся на экран монитора.После окончания загрузки операционной системы пользователь получает возможность управлять компьютером с использованием графического интерфейса операционной системы.

1 задание 
var
a:array[1..10000000] of integer;
sk:real;
i,n:integer;
begin
Write('Размер массива - ');
readln(n);
Write('Заполните массив - ');
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]+5,' ');
end;
writeln();
for i:=1 to n do
sk:=sk+sqrt(a[i]);
write('Сумма квадратов ',sk);
end.
2 задание
var
a:array[1..12] of real;
max,min:real;
i:integer;
begin
write('Введите сред. t за каждый месяц - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
max:=a[1];
 for i:=1 to 12 do
 begin
if a[i]>max then max:=a[i];
end;
min:=a[1];
 for i:=1 to 12 do begin
if a[i]<min then min:=a[i];
end;
writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.');
end.
3 задание
var
a:array[1..12] of real;
sum:real;
i:integer;
begin
write('Введите учеников - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
for i:=1 to 12 do
begin
sum:=sum+a[i];
end;
sum:=sum/12;
writeln('Средний уровень успеваемости - ',sum);
end.