1)Задан массив целых чисел случайным образом. Заменить все числа большие 7 ** число 7....

Question

1)Задан массив целых чисел случайным образом. Заменить все числа большие 7 на число 7. Вывести количество таких чисел.
2)Дан массив целых чисел А из 20 элементов, значения которого формируются случайным образом. Определить число нулевых элементов и записать ненулевые в массив В.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i]>7 then begin a[i]:=7; Inc(k) end;
  a.Println;
  Writeln('Количество замен равно ',k);
  // если нужно общее количество семерок, замените
  // предыдущую строку следующей:
  // Writeln('Количество семерок равно ',a.Where(x->x=7).Count);
end.

Тестовое решение
n= 15
10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2
7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2
Количество замен равно 6

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(20,-5,8); a.Println;
  var b:=a.Where(x->x<>0).ToArray; b.Println;
  Writeln('Количество нулей равно ',20-b.Count);
end.

Тестовое решение
-4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3
-4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3
Количество нулей равно 3