Var i, s: integer;
a: array[1..10] of integer;
begin
for i := 1 to 10 do begin
a[i] := random(10) - 5;
if(a[i] < 0) and (i mod 2 = 0) then s := s + a[i];
write(a[i]:3);
end;
writeln(#10, 'Сумма отрицательных элементов: ', s);
<span>end.</span>
Вытаскивание из корзины любого из 16 шаров – события равновероятные (т.к. все шары разного цвета). Поэтому для решения задачи применима формула 2 ^i = N. Здесь N = 16 – число шаров разного цвета. Решая уравнение 2^i =16, получаем ответ: i<span> = 4 бита (2^4=2*2*2*2=16)</span>
В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];
Нельзя сказать, какая из этих ОС лучше, так как у них совершенно разные характеристики и цели. Linux можно настроить, что может сделать только программист, в то время как Windows более легка в управлении.
1) Windows, тк на ней легко работать.
2) Я думаю Linux, хотя тут на самом деле неважно (я считаю), тк код то везде одинаковый будет.
3) Linux, тк это одна из ее целей.
CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N A(i) = min * A(i)NEXT iFOR i = 1 TO N B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N B(i) = min * B(i)NEXT iFOR i = 1 TO N PRINT A(i);NEXT iPRINTFOR i = 1 TO N PRINT B(i);NEXT i
