<span>ОС складається з Ядра (Kernel), інтерфейсу користувача (User interface), SDK (не у всіх), файлової системи і відлагоджувача.</span>
Var
a, b, c, sum: integer;
function min(x, y: integer): integer;
begin
if(x > y) then result := y
else result := x;
end;
begin
sum := 0;
read(a, b, c);
a := min(a, min(b, c));
while a > 0 do
begin
if(a mod 10 mod 2 <> 0) then sum := sum + a mod 10;
a := a div 10;
end;
write(sum);
end.
Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('среднее арифметическое элементов массива = ',s/n);
end.
Пример:
Массив A:
4 -25 -8 17 1 15 -23 -13 16 -22
среднее арифметическое элементов массива = -3.8