Было проведено 9 запусков программы, при которых в качестве
значений переменных s и t вводились
следующие пары чисел: (8, 8); (9, 6);
(4, 7); (6, 6); (–9, –2); (–5, 9); (–10, 10);
(6, 9); (10, 6).
Сколько было запусков, при которых
программа напечатала «ДА»?

Question

Информатика: Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (8, 8); (9, 6); (4, 7); (6, 6); (–9, –2); (–5, 9); (–10, 10); (6, 9); (10, 6). Сколько было запусков, при которых программа напечатала «ДА»?

Полина1111164844858 · Accepted Answer

Const   n = 10; var   a: array[0..10] of integer;   i, s: integer; begin //Заполнение массива сл. числами   for i := 1 to n do   begin     a[i] := random(201) - 100;     write(a[i]:4);   end;   writeln; //1) Все элементы не превышающие число 100   writeln( Не больше 100 );   for i := 1 to n do     if a[i] = 100 then       write( a[i]:4);   writeln; // 2) Все четные элементы   writeln( Кратные двум );   for i := 1 to n do     if a[i] mod 2 = 0 then         write( a[i]:4);   writeln; // 3) Все элементы,...

MOGZ ответил