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];
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Расскажите при каких действий можно распечатать документ в виде книжки
2.Если он в формате ".pdf" или из Microsoft Word,заходим в документ.
3.В верхнем левом углу есть значек.
4.Нажать
5.Появится менюшка небольшая,есть вкладка "Печать"
6.ОБЕЗАТЕЛЬНО подключиться по USB кабелю к принтеру(или к другому иному устройству которое печатает)
7.Нажать "печать через принтер"
8.Оно ищет ваш принтер.
9.Выбираем качество листков,размер и тд.
10.В формате есть пункт "КНИЖКА" выбираем ее ,и будет вам щастье
Надеюсь я тебе нажми " " :)