Var x, y: integer; z: string; begin readln(x, y); if (x > 0) then if (y > 0) then z := '1' else if (y = 0) then z := '1, 4' else z := '4'; if (x = 0) then if (y > 0) then z := '1, 2' else if (y = 0) then z := '0' else z := '3, 4'; if (x < 0) then if (y > 0) then z := '2' else if (y = 0) then z := '2, 3' else z := '3'; writeln('>>', z, '<<'); end.
Я когда-то в школе такую писал, но эту гораздо лучше сделал *О*
Var a: array [0..10] of integer; i, m: integer; begin m := 1; for i := 0 to 10 do begin a[i] := random(50) - 25; writeln('[', i, '] => ', a[i]); end;
for i := 0 to 10 do if (a[i] mod 2 = 1) then m := m * a[i]; writeln(m); end.
2) var a: array [0..10] of integer; i, m: integer; begin for i := 0 to 10 do begin a[i] := random(50) - 25; writeln('[', i, '] => ', a[i]); end; for i := 0 to 10 do if ((a[i] > a[m]) and (a[i] < 0)) then m := i;
writeln('[', m, '] => ', a[m]); end.
Можно и меньше циклов, это я для наглядности, чтобы всё не смешивалось =)
Ну то что я написала то и появиться