Умоляю, решите по информатике хотя бы несколько, много

5) t=11

6)k=8

7)s=54

код на c# во вложениях

//pascalabc.net 3.0 (*задать одномерный массив из 50 целочисленных элементов, с цикла repeat until вывести на экран те элементы которые с индексом позиции* )var mas : array [1..50] of integer;     i: integer; begin  for i: =1 to 50 do      mas[i] : = random(50)+1;   writeln('массив: ');     for i: =1 to 50 do      write(mas[i],' ');   writeln;     writeln('элементы, с индексом позиции: ');       i : = 1;     repeat      if (mas[i] = i) then      write(mas[i],' ');     inc(i)  until i = 50;   end.

Var   a,b,c,max,min: integer; begin write('введите первое число'); readln(a); write('введите второе число'); readln(b); write('введите третье число'); readln(c);   if a > b then       max: =a   else       max: =b;   if max > c then       writeln('максимальное число = ', max)   else       writeln('максимальное число = ', c);       if a > b then       min: =b       else       min: =a;       if min < c then       writeln('минимальное число = ', min)       else       writeln('минимальное число = ', c); end.