6. Заполните одномерный массив из n элементов следующим образом: Номера элементов массива 1 2 3 4 5 6 7 … Значения элементов массива 0 3 0 5 0 7 0
Answers & Comments
vladmor
Const k = 1000; var a:array[1..k] of integer; i,n:integer; begin writeln('введите n '); readln(n); for i:=1 to n do begin if i mod 2 = 0 then a[i]:=i+1; write(a[i],' '); end; end.
Answers & Comments
var a:array[1..k] of integer;
i,n:integer;
begin
writeln('введите n ');
readln(n);
for i:=1 to n do begin
if i mod 2 = 0 then a[i]:=i+1;
write(a[i],' ');
end;
end.
Тестовое решение:
введите n
10
0 3 0 5 0 7 0 9 0 11