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