Распишите алгоритм программы (что делаем и т.д), паскаль! Массивы, необходимо было вывести элементы с четными номерами. program qq;
var a:array of integer;
n,i:integer;
begin
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
writeln;
i:=0;
while i<=n-1 do begin
write(a[i]:4);
i:=i+2;
end;
end.
var a:array of integer;
n,i:integer;
begin
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
writeln;
i:=0;
while i<=n-1 do begin
write(a[i]:4);
i:=i+2;
end;
end.
More Questions From This User See All