Информатика, опубликовано 2018-08-22 23:42:41 by Гость
Замените все элементы массива ,стоящие на позиции кратной 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на