Что шоколадных стало 9. карамели стало 5. ирисок стало 4. А леденцов стало 3
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
Главные удобства панели быстрого запуска в том, что, во-первых, программа запускается при однократном нажатии на значок. То есть, не нужен двойной щелчок, а достаточно нажать на ярлык. Второе, еще более полезное свойство панели быстрого запуска - это то, что она находится поверх остальных окон. Я думаю, что у вас были случаи, когда нужно запустить программу, а чтобы добраться до ее значка на рабочем столе, необходимо закрыть или свернуть несколько других окон.
Можно добавлять значки программ на панель быстрого запуска для ускорения доступа к часто используемым программам или удалять ненужные значки.