Дан массив чисел. Найти наибольший элемент, поставить его первым.

PROGRAM PRG6_3;

CONST М = 100;

VAR MAS: ARRAY[1..M] OF INTEGER; I, K, NEW, N: INTEGER;

BEGIN

WRITE('BBEflMTE РАЗМЕР МАССИВА N = ');

READLN(N);

WRITELN('BBEflHTE ', N, ' ЭЛЕМЕНТОВ МАССИВА'); FOR I:= 1 TO N DO

READ(MAS[I]);

WRITELN; NEW:= MAS[N]; К:= N;

FOR I:= N DOWNTO 1 DO IF MAS[I]>NEW THEN BEGIN К:= I;

NEW:= MAS[I] END;

MAS[K]:= MAS[1]; MAS[1]:= NEW; FOR I:= 1 TO N DO

WRITE(MAS[I]: 4);

WRITELN

END.

 

Дан массив чисел. Расставить их по убыванию.

PROGRAM PRG6_4;

CONST M = 100;

VAR MAS: ARRAY[1..M] OF INTEGER; I, J, K, NEW, N: INTEGER;

BEGIN

WRITE('BBEflMTE РАЗМЕР МАССИВА N = ');

READLN(N);

WRITELN('BBEflHTE ', N,' ЭЛЕМЕНТОВ МАССИВА');

FOR I:= 1 TO N DO

READ(MAS[I]);

WRITELN;

FOR J:= 1 TO N-1 DO BEGIN

NEW:= MAS[N];

К:= N;

FOR I:= N DOWNTO J DO IF MAS[I]>NEW THEN BEGIN K:= I;

NEW:= MAS[I] END;

MAS[K]:= MAS[J];

MAS[J]:= NEW; END;

FOR I:= 1 TO N DO WRITE(MAS[I]: 4);

WRITELN

END.

 

 

Имеются данные об успеваемости не более чем 24 учебных групп (в процентах). Определить, на сколько нужно повысить успеваемость в самой от-ста-ющей группе, чтобы достичь среднего уровня успеваемости.

ROGRAM PRG6_5;

CONST М = 24;

VAR MAS: ARRAY[1..M] OF REAL; I, N: INTEGER;

MIN, SUM: REAL;

BEGIN

WRITEC”BBEflklTE РАЗМЕР МАССИВА N = ');

READLN(N);

REPEAT

WRITE('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА (%)');

READLN(MAS[1]);

UNTIL (MAS[1]<101)AND(MAS[1]>0); MIN:= MAS[1];SUM:= MIN;

FOR I:= 2 TO N DO

BEGIN REPEAT

READLN(MAS[1]);

UNTIL (MAS[1]<101)AND(MAS[1]>0);

SUM:= SUM+MAS[I];

IF MIN>MAS[I] THEN MIN:= MAS[I]; END;

WRITELNCriOBblCHTb УСПЕВАЕМОСТЬ В САМОЙ'); WRITELN('OTCTAIOLUER ГРУППЕ НА ', (SUM/N)-MIN)

END.

 

Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая зимой.

PROGRAM PRG6_6;

CONST М = 12;

VAR MAS: ARRAY[1..M] OF REAL; I: INTEGER; MIN, MAX: REAL;

BEGIN

FOR I:= 1 TO 12 DO BEGIN

Write('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА');

READLN(MAS[I]);

END;

МАХ:= MAS[6];MIN:= MAS[12]; FOR I:= 7 TO 8 DO

IF MAX<MAS[I] THEN MAX:= MAS[I]; FOR I:= 1 TO 2 DO

IF MIN>MAS[I] THEN MIN:= MAS[I]; WRITELN('CAMAfl ВЫСОКАЯ ТЕМПЕРАТУРА ЛЕТОМ ', MAX); WRITELN('CAMAfl НИЗКАЯ ТЕМПЕРАТУРА ЗИМОЙ ', MIN)

END.

 

В коллекции нумизмата не более чем 90монет всех возможных достоинств. Определить, сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера

ROGRAM PRG6_7; CONST М = 90;

VAR MAS, NUM2, NUM5: ARRAY[1..M] OF INTEGER; M20, M50, I, N: INTEGER;

BEGIN

WRITE('BBEflHTE РАЗМЕР МАССИВА N = ');

READLN(N);

M20:= 0;M50:= 0;

WRITELN('BBEAHTE N, ' ЭЛЕМЕНТОВ МАССИВА');

FOR I:= 1 TO N DO BEGIN

READ(MAS[I]);

CASE MAS[I] OF

20: BEGIN M20:= M20+1;NUM2[M20]:= I END; 50: BEGIN M50:= M50+1;NUM5[M20]:= I

END;

END;

END;

WRITELN('MOHET ДОСТОИНСТВОМ 20 РУБЛЕЙ ', M20,' ШТУК'); WRITELN('HX ПОРЯДКОВЫЕ НОМЕРА:');

FOR I:= 1 ТО M20 DO

WRITE(NUM2[I]: 3);

WRITELN;

WRITELN('MOHET ДОСТОИНСТВОМ 50 РУБЛЕЙ ', M50,' ШТУК'); WRITELN('HX ПОРЯДКОВЫЕ НОМЕРА:');

FOR I:== 1 ТО M20 DO WRITE(NUM5[I]: 3);

WRITELN;

END.

 

Дана матрица N*М, состоящая из натуральных чисел. Найти в ней наименьший элемент и опреде­лить его местоположение. Если таких элементов несколько, то вывести на экран положение каж­дого из них.

 

PROGRAM PG7_1;

CONST Т = 100; S = 100;

VAR A: ARRAY[1..T, 1..S] OF INTEGER;

N, M, IM, JM, I, J, MIN, К: INTEGER;

BEGIN

WRITE('BBEflMTE КОЛИЧЕСТВО СТРОК N = ');

READLN(N);

WRITE('ВВЕДИТЕ КОЛИЧЕСТВО СТОЛБЦОВ М = ');

READLN(M);

FOR I:= 1 ТО N DO

BEGIN

WRITELN('ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ ', M, ' ЧИСЕЛ');

FOR J:= 1 ТО М DO

READ(A[I, J])

END; MIN:= A[1, 1];

IM:= 1;

JM:= 1;

K:= 0;

FOR I:= 1 TO N DO

FOR J:= 1 TO M DO

IF MIN>A[I, J] THEN BEGIN

К:= 1;IM:= l;JM:= J; MIN:= A[l, J]

END

ELSE

IF MIN = A[l, J] THEN К:= K+1; IF К = 1 THEN BEGIN

WRITELN('B МАТРИЦЕ ОДИН МИНИМАЛЬНЫЙ ЭЛЕМЕНТ MIN =', MIN);

WRITELN('B ', IM, 'СТРОКЕ, В ', JM,' СТОЛБЦЕ')

END

ELSE

BEGIN

WRITELN('B МАТРИЦЕ ', К, 'МИНИМАЛЬНЫХ ЭЛЕМЕНТОВ MIN = ', MIN);

FOR I:= IM TO N DO

FOR J:= 1 TO M DO

IF MIN = A[l, J] THEN WRITELN('B СТРОКЕ ', I, ' В СТОЛБЦЕ ', J)

END

 

Дана матрица N х М, состоящая из натуральных чисел. Найти в строках самые правые наименьшие элементы и определить их местоположение.

ROGRAM PG7_2;

CONST Т = 100;S = 100;

VAR A: ARRAY[1..T, 1..S] OF INTEGER; N, M, JM, I, J, MIN: INTEGER;

BEGIN

WRITE('ВВЕДИТЕ КОЛИЧЕСТВО СТРОК N = ');

READLN(N);

WRITE('BBEflHTE КОЛИЧЕСТВО СТОЛБЦОВ M = ');

READLN(M);

FOR I:= 1 TO N DO

BEGIN

WRITELN('BBCWITE ', М,' ЧИСЕЛ'); FOR J:= 1 ТО М DO READ(A[I, J])

END;

FOR I:= 1 TO N DO BEGIN

MIN:= A[l, M]; JM:= M;

FOR J:= M DOWNTO 1 DO IF MIN>A[I, J] THEN

BEGIN

JM:= J; MIN:= A[l, J]

END;

WRITELN('B СТРОКЕ I =', I, 'САМЫЙ ПРАВЫЙ MIN =', MIN); WRITELN('C^BEU', JM)

END;

END.

 

Дана матрица N х М, состоящая из натуральных чисел. Выбрать в строках самые левые наименьшие элементы и поставить их в первый столбец.

PROGRAM PG7_3;

CONST Т = 100;S = 100;

VAR A: ARRAY[1..T, 1..S] OF INTEGER; N, M, JM, I, J, MIN: INTEGER;

BEGIN

WRITE('BBEAklTE КОЛИЧЕСТВО СТРОК N = '); READLN(N);

WRITE('ВВЕДИТЕ КОЛИЧЕСТВО СТОЛБЦОВ M = ');

READLN(M);

FOR I:= 1 TO N DO BEGIN

WRITELN('BBEflMTE ', M,' ЧИСЕЛ');

FOR J:= 1 TO M DO READ(A[I, J])

END;

FOR I:= 1 TO N DO BEGIN

MIN:= A[l, 1]; JM:= 1;

FOR J:= 1 TO M DO IF MIN>A[I, J] THEN BEGIN

JM:= J; MIN:= A[l, J] END; A[l, JM]:= A[l, 1]; A[l, 1]:= MIN END;

FOR I:= 1 TO N DO BEGIN

FOR J:= 1 TO M DO WRITE(A[I, J]: 4);

WRITELN

END;

END.

 

Дана матрица N х М, состоящая из латинских