В отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики. Еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. Не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби. Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер. Часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. Но у меня другое мнение. Да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. Но в чем виноват компьютер?! Человек сам крадет у себя время, а не машина. Телевизор не полезен, потому что перед ним человек сидит пассивно. Сидит, пультом клацает, а ему показывают картинку. С компьютером другое дело! С ним все время надо действовать! Даже читать и писать все время приходится. Так даже интереснее, чем торчать у телевизора. А еще компьютер заставляет выбирать самому то, что действительно нужно. Если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь. Компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. Просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. И чтобы расширить возможности человека, а не сузить их.
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];
Объяснение: