1.
program n1;
var
k, s: integer;
a: array [1..8] of integer;
begin
for k := 1 to 8 do readln(a[k]); // с клавиатуры вводится массив из 8
s := 0; элементов
for k := 1 to 8 do
if a[k] < 0 then s := s + a[1]; // в цикле 4 раза к s прибавляют 1-ый элемент
writeln(s); // выводится s
end.
ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)
2.
Надо строку if a[k] < 0 then s := s + a[1];
Заменить на строку if a[k] < 0 then s := s + a[k];
Объяснение:
Для того, чтобы перевести число 1892 из десятичной системы счисления в двоичную, необходимо осуществить последовательное деление на 2, до тех пор пока остаток не будет меньше чем 2.
— 1892 2
1892 — 946 2
0 946 — 473 2
0 472 — 236 2
1 236 — 118 2
0 118 — 59 2
0 58 — 29 2
1 28 — 14 2
1 14 — 7 2
0 6 — 3 2
1 2 1
1
Полученные остатки записываем в обратном порядке, таким образом:
ответ: 189210=111011001002.
Объяснение:
:)