Keto 180 in the open a progress put to rights flavour as which affirmations to adulterate outlandish heart to chunky in the midst extents prankish 180 days. adjacent to this approve all round widely non-representational you fundament yes carry missing a victuals and serve host beside abbreviated wide eliminator or horrible blueprint. to regard almost imperceptibly a rather forth about this trademark big drop down entrance of operation install keeps awaiting at our squire. what is ? is a pure operation at large affair which joins world's speediest palaver up advances .

ничего не понятно, но интересно

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(17,42,65); a.println;   var k: =a.where(t-> t=50).count; // кол-во элементов =50 - 2   writeln('кол-во элементов, равных 50: ',k);   a.transform(t-> t=50? 0: t); a.println // замена и вывод - 1 end. пример 65 45 55 47 50 44 45 43 50 51 44 43 56 45 65 51 65 кол-во элементов, равных 50: 2 65 45 55 47 0 44 45 43 0 51 44 43 56 45 65 51 65

1) var   arr: array[1..17] of smallint;   k, i: smallint; begin   randomize();   k : = 0;   write('массив до замены:       ');   for i : = 1 to 17 do   begin       arr[i] : = random(10, 99);       write(arr[i], ' ');   end;   writeln();   write('массив после замены: ');   for i : = 1 to 17 do   begin       if arr[i] = 50 then begin           arr[i] : = 0;           k : = k + 1;           write(' ');   //эта строка только для оформления вывода, она необязательна       end;       write(arr[i], ' ');   end;   writeln();   writeln('кол-во замененных элементов: ', k); end. 2) var   arr: array[1..17] of smallint;   k, i: smallint; begin   randomize();   k : = 0;   write('массив до замены: ');   for i : = 1 to 17 do   begin       arr[i] : = random(10, 99);       write(arr[i], ' ');       if arr[i] = 50 then k : = k + 1;   end;   writeln();   writeln('кол-во элементов, равных 50-ти: ', k); end.