uses crt;
var
a:array[1..10] of integer; //например
i:byte;
begin
clrscr;
{заполнение массива}
i:=1;
while i<=10 do begin
if not odd(i) then dec(a[i]);
inc(i)
end;
{вывод массива}
readkey
end.
program 14;
var ns:array[1..10]of real;
x:integer;
begin
writeln('vvesti massiv ns[1..10]');
for x:=1 to 10 do
readln(ns[x]);
begin
x:=2
while x<=10 do
begin
ns[x]:=ns[x]-1;
x:=x+2;
end;
end;
writeln('ns[x]',ns[x]:8:2);
end.
var ns:array[1..10]of real;
x:integer;
begin
writeln('vvesti massiv ns[1..10]');
for x:=1 to 10 do
readln(ns[x]);
x:=2;
while x<=10 do
begin
ns[x]:=ns[x]-1;
x:=x+2;
end;
for x:=1 to 10 do
writeln('ns[',x,']',ns[x]:8:2);
end.