В цикле от 1 до 10 вводим i-тый элемент массива. Сразу в этом же цикле проверяем два условия: 1) если i < 6 то прибавляем этот элемент к сумме1 2) если i чётное и элемент чётный прибавляем его к сумме2. С телефона не выделяются абзацы, поэтому сори за вид. Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln ('введите ',i,'-е число массива'); Readln (M[i]); If i<=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln ('Сумма первых 5 элементов = ',s1);Writeln ('Сумма чётных элементов стоящих на чётных позициях = ',s2);End.
Если вдруг обнаружилось что монитор не работает - не надо впадать в панику. Возможно всё не так страшно. Для начала проверим, включили ли мы его с кнопки на фронтальной панеле. Если мы всё проверили, но монитор не включается, то проверяем, включен ли монитор в сеть. Включен, но не работает? Проверим тумблер за монитором. Включен? Проверим, подключен ли кабель VGA / DVI. А так же проверь, целый ли кабель. Возможно там перегибы/погрызы. Хотя обычно если нет сигнала от видяхи, то об этом будет написано на мониторе. Всё проверили, но не работает? Попробуй подключить его к другой видеокарте / к другому компьютеру. Не Пробуем постучать по нему, но не сильно (вдруг не контачит где-то). Не получилось? Тогда несём в сервис или разбираем монитор сами.
Откручиваем болтики, винтики, шпунтики, снимаем крышку, отсоединяем матрицу, чтобы не порвать случайно шлейф. Проверяем конденсаторы. Обычно неисправные всдутые, их сразу видно. Нашли? Тогда всё хорошо, отпаиваем конденсатор, смотрим на сколько он, а лучше взять его, положить в карман и с ним пойти в магазин радиоэлектроники. Покупаем конденсаторы, впаиваем, + и - не путаем, пытаемся включить. Заработал? Отлично, проблема решена. Нет? Тогда смотрим, вдруг где-то порвался шлейф. Осматриваем, вдруг где-то что-то плохо контачит. Желательно пройтись мультиметром и замерить выходы, замерить доходит ли сигнал. Всё ОК, но монитор не включается? Тогда скорей всего беда в матрице. Можно попробовать поставить матрицу на аналогичный монитор и проверить, будет ли она работать на нём. Не работает на другом? Тогда идём в интернет и ищем матрицы на нашу модель монитора. Заказываем / покупаем у себя в городе, ставим, радуемся.
Еще можно отнести в сервис, там Вам и заменят и купят, но это будет стоить дополнительных денег. Еще как вариант можно купить новый монитор в интернет магазина / авито / в магазине.
