Дан массив чисел. Найти наибольший элемент, поставить его первым.
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 х М, состоящая из латинских