program mas_kol_otr_kol_p;
const
n=10;
var
i,s:integer;
a:array[1..n] of integer;
begin
randomize;
writeln('Введите массив 》');
for i:=1 to n do
begin
a[i]:=random(61)-30;
write(a[i]:3,' ');
end;
writeln;
writeln('Меняем отрицательные на противоположные... 》');
for i:=1 to n do
begin
if(a[i]<0) then
a[i]:=abs(a[i]);
write(a[i]:3,' ');
end;
writeln;
writeln('Удаляем третий элемент... 》');
for i:=1 to n-1 do
begin
if(i>2) then
a[i]:=a[i+1];
write(a[i]:3,' ');
end;
writeln;
writeln('Считаем сумму... 》');
s:=0;
for i:=1 to n-1 do
s:=s+a[i];
write(s);
end.
var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.
