Напишите в программе кумир исполнитель черепаха имя артем
Много баллов огромное

и какая вероятность что пользователь не

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.

#include < iostream> #include < vector> #include< windows.h> using namespace std; char bufrus[256]; char* rus(const char* text) { chartooem(text, bufrus); return bufrus; }int main(){ vector< int> m; //объявили динамический массивint n,count,sum; count=sum=0; cout< < rus("введите количество элементов массива: ");

cin> > n; for(int i=0; i< n; i++){ cout< < "m["< < i+1< < "]"; int temp; cin> > temp; if (temp> 7){count++; sum+=temp; } m.push_back(temp); }cout< < rus("количество элементов: ")< < count< < endl; cout< < rus("сумма элементов: ")< < sum; cin> > n; return 0; }

как видите, всё просто)

6. ответ 4)

7. ответ 2)

program num1; uses crt; var x: array[1..10] of real; max: real; i : integer; begin clrscr; for i: =1 to 10 do begin write('x[',i,']='); readln(x[i]) end; max: =x[1]; for i: =1 to 10 do if x[i]> =max then max: =x[i]; writeln('max=',max: 3: 1); for i: =1 to 10 do if x[i]=max then begin x[i]: =0; break end; for i: =1 to 10 do write(' *',x[i]: 3: 1,'* '); end.