01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Массив+ / ALEX5B

PROGRAM Laba5D;
USES CRT;
VAR
I,K,M,Nmax:INTEGER;
Amax,MIN,MAX:REAL;
A,D : ARRAY[1..50] OF REAL;
BEGIN
CLRSCR;
WRITELN('ЏђЋѓђЂЊЊЂ ђЂ‘ЏЋ‹Ћ†…Ќ€џ ќ‹…Њ…Ќ’Ћ‚ ЊЂ‘‘€‚Ђ ‚ “Ѓ›‚Ђћ™…Њ ЏЋђџ„Љ…!');
WRITE('‚‚…„€’… ЉЋ‹€—…‘’‚Ћ ќ‹…Њ…Ќ’Ћ‚ ЊЂ‘‘€‚Ђ A:');
READLN(M);
FOR I:=1 TO M DO BEGIN WRITE(I,'-‰ ќ‹…Њ…Ќ’ ЊЂ‘‘€‚Ђ ђЂ‚…Ќ: ');
READLN(A[I]); END;
FOR K:=1 TO (M-1) DO
BEGIN
Amax:=A[K];
Nmax:=K;
FOR I:=K+1 TO M DO
IF A[I]>Amax THEN
BEGIN
Amax:=A[I];
Nmax:=I;
END;
A[Nmax]:=A[K]; {Џ…ђ…‘’ЂЌЋ‚ЉЂ}
A[K]:=Amax;
END;
WRITELN('Џђ…ЋЃђЂ‡Ћ‚ЂЌЌ›‰ ЊЂ‘‘€‚');
FOR I:=1 TO M DO
WRITE(A[I]:3:2,' ');
FOR I:=1 TO M DO
A[M]:=MIN;
A[1]:=MAX;
IF ABS(A[I])>MAX THEN
FOR I:=1 TO M DO BEGIN
D[I]:=A[I];
WRITELN(D[I]:3:4);
END;



READLN;
END.