Изменить программу так, чтобы я сам вводил число которые будут меняться, а не рандомно.
Var A:array[1 ... 100] of integer;
i, n, t:integer;
Begin
write ('Введите размерность: ') ; readln (n) ;
writeln ('Исходный массив: ') ;
For i:=1 to n do
Begin
A[i]:=random (30) - 15;
write (A[i]:4) ;
End;
writeln;
writeln ('Преобразованный: ') ;
i:=0;
While i Begin
inc (i, 1) ;
t:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
inc (i, 1) ;
End;
For i:=1 to n do
write (A[i]:4) ;
readln;
End.
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Изменить программу так, чтобы я сам вводил число которые будут меняться, а не рандомно. Var A:array[1 ... 100] of integer; i, n, t:integer; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы