Нужно решить через паскаль с циклов for или while 1)известно количество пассажиров за каждый месяц. вычислить ср. арифметическое за год 2)известно кол-во очков каждого игрока команды. определить лучшего.

1) var s,i,a: integer; begin s: =0; for i: =1 to 12 do begin read(a); s: =s+a; end; writeln(s/12: 0: 2) end. 2) var i,a,max,n: integer; begin max: =-maxint; readln(n); {ввод кол-ва игроков в команде} for i: =1 to n do begin read(a); if a> max then max: =a; end; writeln(max) end.

Var arr: array [1..6] of integer; i,k,x,s,d,j: integer; beginrandomize; d: =0; for j: =1 to 1000 dobeginfor i: =1 to 6 do   arr[i]: =1; k: =1; s: =1; while k< > 0 do  begin    x: =random(6)+1;     arr[x]: =0;     if (arr[1]=0) and (arr[2]=0) and (arr[3]=0) and (arr[4]=0) and(arr[5]=0) and (arr[6]=0) then k: =0;     s: =s+1;   end; d: =d+s;   end; writeln('в среднем цикл отработал ',d/1000,' раз');   end. в среднем цикл отработал 15.946 разпри многократном запуске   получается около  16 раз

1) #include < iostream> #include < conio.h> #include < string> using namespace std; int main() { string str; getline(cin, str); for (int i = 1; i < str.length(); i++) { if (i % 3 == 0) {cout < < str[i] < < endl; } } _getch(); return 0; } 2) #include < iostream> #include < conio.h> #include < string> using namespace std; int main() { string str; getline(cin, str); for (int i = 1; i < str.length(); i++) {   if (i % 2 == 0)   { if (str[i] ! = 'a')   { str[i] = 'a'; }   if (str[i] ! = 'b')   { str[i] = 'b'; }   if (str[i] ! = 'c')   { str[i] = 'c'; } } } cout < < str < < endl; _getch(); return 0; }