Ответы
Ответ дал:
1
program aliona;
const n=18;
var a:array[1..n] of integer;
p,i,l:integer;
begin
writeln('vvedite massiv=');
for i:= 1 to n do
readln(a[i]);
writeln ('vvedite p=');
readln(p);
l:=2007;
for i:=1 to n do
a[p]:=l;
writeln('novaia');
for i:= 1 to n do
writeln (a[ i ]);
readln;
end.
const n=18;
var a:array[1..n] of integer;
p,i,l:integer;
begin
writeln('vvedite massiv=');
for i:= 1 to n do
readln(a[i]);
writeln ('vvedite p=');
readln(p);
l:=2007;
for i:=1 to n do
a[p]:=l;
writeln('novaia');
for i:= 1 to n do
writeln (a[ i ]);
readln;
end.
Аноним:
программу проверила всё работает !
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад