информатика!❤️ 2. Приведены фрагменты программы. Какое значение получит х после завершения программы? 1) X:=0; for i:=1 to 5 do for k:=i+1 to 5 do х=х+1; 2) X:=0; for i:=1 to 5 do for k:=i+1 to 5-i do x:=x+1; 4) X:=103; for i:=1 to 3 do for k:=0 to i do x:=x+(k-i); 3. Допишите программу и выведите результат. 1) for i:=1 to 4 do begin ifi mod 2 = 0 then n:=i+1 else n:=i; for k:=1 to n do write(n-i, ); writeln; end; 2) for i:=1 to 3 do for k:=3 downto 1 do for n:=i-k to (i+k) div 2 do write(n, '); 3) x:=0; for i:=1 to 5 do for k:=i-1 to i+1 do х=х+k;

program rrr;
uses crt;
const n=9;
type massiv=array[1..n]of real;
var a:massiv;
max,sr:integer;
procedure vvod(var x:massiv);
var i:integer;
begin
writeln('wwedite massiv');
for i:=1 to n do
readln(x[i]);
end;
procedure vivod(x:massiv);
var i:integer;
begin
for i:=1 to n do
write(x[i]:6:2,' ');
end;
procedure sred_ar_i_max(x:massiv,var sr,max:real);
var sum:real; i:integer;
begin
s:=0;
for i:=1 to n do
if x[i]>0 then s:=s+x[i];
end;
sr:=s/n;
for i:=1 to n do
if (x[i]>0) and max<x[i] then max:=x[i];
end;
vvod(a);
clrscr;
vivod(a);
sred_ar_i_max(a,sr,max);
writeln('max=',max:6:2,'srednee arifmet=',sr:6:2);
readln;
end.