Код и результат выполнения на скриншотах.
Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
Ответ:
лучше конечно же отнести, в мастерскую, такая проблема скорее всего решается бесплатно
Объяснение:
попробуй отключить провод питания компьютера.
попробуй ввести команды чтобы зайти в BIOS и оттуда перезагрузить комп.
1)а - из учебника.
2) 2 Тб = 2×1024 Гб = 2×1024×1024 Мб - ответ<span>b
3)</span>7 мбит = 7×1000 Кбит = 7000кбит
4) 136/8 = 17