Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Замените все элементы массива ,стоящие на позиции кратной 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.