Замените все элементы массива ,стоящие на позиции кратной 3, на 0
Замените все элементы массива ,стоящие на позиции кратной 3, на 0
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..100] of integer;
i,n:integer;
begin
writeln('Введите количество элементов массива');
read(n);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
if i mod 3 = 0 then a[i]:=0;
end;
for i:=1 to n do write(a[i],' ');
end.
Не нашли ответ?
Похожие вопросы