Дан одномерный массив состоящий из 10 элементов. Все элементы меньше 15 заменить на 0 и подсчитать количество замен
Дан одномерный массив состоящий из 10 элементов. Все элементы меньше 15 заменить на 0 и подсчитать количество замен
Гость
Ответ(ы) на вопрос:
Гость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
begin
a[i]:=0;
n:=n+1;
end;
end;
writeln ('zamen=',n);
end.
Не нашли ответ?
Похожие вопросы