Var a,b,sum:integer;
begin
sum:=0;
for a:=0 to 9 do begin
read(b);
if (b mod 2 =0) then sum:=sum+b;
end;
writeln('сумма чётных чисел sum=',sum);
end.
В каждом горизонтальном слое ядра расположены в форме квадрата, в i-м слое i рядов по i ядер - всего 
.
Первая пирамида: 2 слоя, 
ядер.
Вторая: добавляется еще 3-й слой, всего 
ядер.
Третья: 
ядер.
Четвертая: 
ядер.
Const N = 10;Const M = 10;Var A:Array [1..N, 1..M] Of Integer; i, j, imax, jmax, imin, jmin, temp:Integer; Begin randomize; For i := 1 to N do Begin For j := 1 to M do Begin A[i, j] := random(1000); End; End; imin := 1; imax := 1; jmin := 1; jmax := 1; For i := 1 to N do Begin For j := 1 to M do Begin If A[i, j] > A[imax, jmax] then Begin imax := i; jmax := j; End; If A[i, j] < A[imin, jmin] then Begin imin := i; jmin := j; End; End; End; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]); temp := A[imin, jmin]; A[imin, jmin] := A[imax, jmax]; A[imax, jmax] := temp; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.
регулярное архивирование файлов позволяет минимизировать ущерб от вирусной атаки. Основным средством защиты информации является резервное копирование ценных данных,которые хранятся на жестких дисках
