I-вариант1. определить значение переменной c по фрагменту программы.a: =22; b: =3; a: =-2*b+a/2if a < b thenc: =4*b-3*aelse c: =3*a+4*b; 2. преобразовать алгоритмический язык в язык pascalалг максимальное числонач цел a,b,mввод a,b если a> =bто m: =aиначе m: =bвсевывод mкон ii-вариант1.определить значение переменной c по фрагменту программы.a: =30; b: =6; a: =a/2*bif a > b thenc: =a-3*belse c: =a+3*b2. преобразовать алгоритмический язык в язык pascalалг выражениенач цель xвещ yввод xесли x> =0то y: =sqrt (x)иначе y: =abs (x)всеввод yкон
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
writeln; s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
if i mod 2<>0 then
s:=s+a[i,j];
end;
if i mod 2<>0 then
writeln(s:6);
end;
end.