Предмет: Информатика,
автор: Лицеистка7
Код в Паскале! Срочно:((((
Вставить число 2007 в позицию Р в одномерный массив из 18 элементов.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: vladnezhdanov
Предмет: Алгебра,
автор: EndyEnder
Предмет: Русский язык,
автор: КатюФФин
Предмет: Математика,
автор: alfabet6