Решать, ! 1. определите значения переменных s и i после выполнения фрагмента программы на паскале. 2. определите значения переменных t, которое будет выведено на экран программой на паскале. 3. определите значения переменных s и i после выполнения программы на паскале.

Uses crt; constn = 10; vari,b: integer; mas : array[1..n] of integer; v: array[1..n]of integer; max_num, max_index,g,c: integer; begin  writeln('введите элементы массива'); for i: =1 to n do readln(mas[i]); for i : = 2 to n doif mas[i] > max_num then beginmax_index : = i; max_num : = mas[i]; end; writeln('введите элементы массива'); for b: =1 to n do readln(v[b]); for b : = 2 to n doif v[b] > g then beginc : = b; g : = v[b]; end; if g< max_num then writeln('максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('максимальное число во втором массиве ',g,' находится на позиции ',c); end.

//pascalabc.net версия 3.2, сборка 1367 begin       var sum : = 0;       for var i : = 1 to readinteger('n=') do       begin               var num : = readinteger('введите число =');               if num..count(c -> c = '5') = 2 then                       sum += num;       end;       writeln(sum); end.