Дан массив из 20-ти элементов - случайных целых чисел в диапазоне от 40 до 60 Найти в этом
массиве количество чисел, которые равны 55 или 52 Заменить эти элементы на их количество.
Например, на входе массив 43 52 47 59 55 49 52 56
На выходе кол-во =3 и массив 43 3 47 59 3 49 3 56
Паскаль
n = 15;
var
i: integer;
a: array[1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(100) - 50;
write(a[i]:6);
if a[i] < 0 then a[i] := sqr(i)
end;
writeln;
writeln('Результирующий массив');
for i := 1 to n do write(a[i]:6);
writeln
end.
Тестовое решение:
Исходный массив
3 37 40 17 20 -12 -27 4 34 -1 9 42 -6 -36 28
Результирующий массив
3 37 40 17 20 36 49 4 34 100 9 42 169 196 28