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

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 х М, состоящая из латинских

Наши рекомендации