Прикрепленное изображение относится к 2 заданию. А вот код программы: Program If12;VarA,B,C:Real;BeginWriteLn('Введите числa A,B и C: ');ReadLn(A,B,C);If (A < B) And (A < C) ThenWriteLn('Min = ',A)ElseIf (B < A) And (B < C) ThenWriteLn('Min = ',B)ElseWriteLn('Min = ',C); End.3) Код: uses crt;var n,i,s:integer;beginwrite('n = ');read(n);s:=0;for i:=1 to n dobeginif i mod 2<>0 thens:=s+i;end;write('s = ',s);end.
Program n1; var a: array[1..10] of integer; i: integer; begin for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' '); end.