Program prog;
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.
Ответ 1.25986667 м
Объяснение:50120 : 1024=25
25600:506=50.592...
25+50.592=
Вопрос 1 точно знаю: <span>загрузочные вирусы.
</span>
1)нлрзпгхсёугч
2)усдсх
3)црлеиуфлхзх
4)криптогрфаия- выходит по вашим буквам, там наверно у вас надо поменять Ч и Г. будет криптография