Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:
progrprogram lab;
uses crt;
var i,n,buf,max,maxn:integer;
a : array [1..10] of integer ;
begin
clrscr;
write('Введите заданную величину:');
readln(n);
for i:=1 to 10 do
 if a[i]>0 then
  if a[i]>n then begin
   max=a[i];
   maxn=i;
 end;
a[maxn]:=-a[maxn];
buf:=a[3];
a[3]:=a[maxn];
a[maxn]:=buf;
writeln('Полученный массив.');
for i:=1 to 10 do
writeln(a[i]);
readln;
end.
Comments: