Дан одномерный массив состоящий из 10 элементов. Все элементы меньше 15 заменить ** 0 и...

Question

Дан одномерный массив состоящий из 10 элементов. Все элементы меньше 15 заменить на 0 и подсчитать количество замен

Answer 1

Var
n,i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
 if a[i]<15 then<br> begin
  a[i]:=0;
  n:=n+1;
 end;
 end;
 writeln ('zamen=',n);
end.