ТЕСТ Цикл з передумовою В яких із наведених операторів циклу тіло циклу не виконається жодного разу? так ні Х:=5; Whіle Х <5 do X := X+1; Х := 10; Whіle Х <= 10 do X := X+1; For A := 10 To 0 Do S = S + A; Х:=5; Whіle Х <5 do X := X+1; Х := 10; Whіle Х <= 10 do X := X+1; For A := 10 To 0 Do S = S + A; Визначте, які оператори реалізують дію:Знайти суму перших десяти натуральних чисел так ні Whіle A<10 do begin A:=A+1; S:=S+A end; For A:=1 To 10 do S:=S+A; If A < 10 Then begin A:=A+1; S:=S+A end; Whіle A<10 do begin A:=A+1; S:=S+A end; For A:=1 To 10 do S:=S+A; If A < 10 Then begin A:=A+1; S:=S+A end; Cкільки буде повторень циклу, якщо початкове значення А=13 While А > 9 do А:= А-1; У якому випадку відбудеться зациклювання? так ні N := 0; While N < 20 do N:=N-1; N := 0; While N < 20 do N:=N+1; N := 0; While N < 20 do F:=F+1; N := 0; While N < 20 do N:=N-1; N := 0; While N < 20 do N:=N+1; N := 0; While N < 20 do F:=F+1;
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив 9x6 ***');
var a:=MatrRandom(9,6,-50,50); a.Println(4);
Writeln(4*a.ColCount*'-');
var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count;
var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count;
Writeln(kn,' отрицательных, ',kp,' положительных')
end.
Пример
*** Исходный массив 9x6 ***
-47 37 23 -34 -33 0
-17 -5 13 -9 0 -46
-41 31 41 -30 -24 49
39 50 13 4 19 14
-17 -12 -24 22 -9 -44
-27 17 -44 -35 -4 32
26 -5 49 -7 -28 -25
-15 -9 13 25 -26 -29
-40 -24 -4 50 33 -45
31 отрицательных, 21 положительных