var a:array[1..100] of integer;
b,c,d:integer;
begin
c:=0;
d:=0;
for b:=1 to 100 do
begin
a[b]:=random(41)-30;
writeln('a[',b,']= ',a[b]);
if a[b]>0 then c:=c+1;
if a[b]<0 then d:=d+1;
end;
writeln('Количество положительных значений равняется ',c);
writeln('Количество отрицательных значений равняется ',d);
end.
5)
var
int sum=0;
int kolmin=0;
arr=[0,15,12,–9,–8,58,45,36,–85,58,36,–45,2,3,25,–9];
for(i=0;i<16;i++){
if(arr[i]>0){ sum+=arr[i];}
if(arr[i]<0){kolmin++;}
}
writeln('сумма + элементов = ',sum);
writeln('количество отрицательных элементов = ',kolmin);
end.
Объяснение:
Проводник служит для того, чтобы найти или сменить файлы, которым мы обычно не придаём значения, но спустя время, разбираемся с ними. Например нужно найти, где находится папка с фотографиями, документами, играми, рисунками и другими материалами. Благодаря проводнику, мы с лёгкостью можем найти определённый тип файлов, но стоит ли он нашего времени, если есть более достойное приложение? Учитывая, что проводник - старый век, многие приложения из Интернета, как следующий тип программ для разборки с файлами, намного эффектнее справляются с файлами, нежели проводник.
Total Commander - удобное приложение, пользующееся популярностью. Является файловым менеджером, альтернативное средство открывания папок. Открытие файлов между каталогами, чего не может делать проводник. Например, нам нужно перенести быстро между дисками или каталогами файлы. В проводнике мы открываем как минимум две папки с разными путями, что сильно занимает времени. В Total Commander всё делается в одном окне, экономится время на перенос. Для того чтобы упростить и ускорить подобные действия, была специально создана данная программа для управления файлами, учитывая, насколько рутинно возиться в файлами в обычном проводнике, что даёт ему колоссальное преимущество.
Итог: если вы хотите экономить время, то пользуйтесь Total Commander, если же забыли, то проводником. Лично для меня неважно чем пользоваться, я нечасто вожусь с файлами, потому особого значения для меня не имеет чем пользоваться. На ваше усмотрение.