#include <iostream>
using namespace std;
int main()
{
int x;
cin>>x;
if(x>=-5&&x<=1||x>=7&&x<=13){
cout<<1;
}else{
cout<<0;}
return 0;
}
привет одногруппник))))
В цикле от 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.
1.)Стрелка
<span>2.)Список
</span>3.)Отмена
Как то так))
В задании не указано, чем разделены группы в строке. Поэтому принято, что группа состоит из нулей и единиц, а разделителями групп может быть любое количество любых иных символов. Если это не так, просто вводите те символы-разделитеоли, каккие считаете нужными.
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Вводите:').MatchValues('[01]+')
.Where(s->s.Length.IsOdd).ToArray;
var b:=a.Select(w->w.ToCharArray.Where(c->c='1').Count).ToArray;
a.Zip(b,(p,q)->p+' - '+q).PrintLines
end.