Program mas; const n=4; // число элементов var a: array [1..n] of integer; //массив i, sum: integer; //переменные begin //начало sum:=0; // сумма=0 for i:=1 to n do readln(a[i]); //вводим массив for i:=1 to n do //цикл if(a[i] mod 2 <>0) then //условие нечетности begin writeln(a[i]); //выводим нечетные sum:=sum+a[i]; //считаем сумму end; writeln(sum); //выводим сумму end. //конец
Х - только паскаль, y - паскаль+бейсик, z - только бейсик. x+y+z = 35, x+y=25, y+z=22. И решаем эту системку. Вычтем из первого третье x=35-22=13 И это ответ :) Только на паскале программируют 13 человек.