Дан массив чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

Дан массив чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

PROGRAM PRG6J;

CONST М = 100;

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

BEGIN

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

READLN(N);

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

READLN(MAS[1]); MAX:= MAS[1]; К:= 1;

FOR I:= 2 TO N DO BEGIN

WRITE('BBEflHTE ЭЛЕМЕНТ МАССИВА '); READLN(MAS[I]); IF MAX<MAS[I] THEN BEGIN

MAX:= MAS[I];

К:= 1

END ELSE

IF MAX = MAS[I] THEN К:= K+1; END;

WRITELN('MAX =', MAX, 'ЭТИХ ЭЛЕМЕНТОВ', К)

END.

 

Дан массив чисел. Найти, сколько в нем пар оди­наковых соседних элементов.

PROGRAM PRG6_2;

CONST М = 100;

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

BEGIN

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

READLN(N);

К:= 0;

FOR I:= 1 ТО N DO BEGIN

WRITE('BBEflHTE ЭЛЕМЕНТ МАССИВА'); READLN(MAS[I]);

END;

FOR I:= 1 TO N-1 DO

IF MAS[I] = MAS[I-M] THEN К:= K+1;

WRITELN('OAMHAKOBblX ПАР СОСЕДНИХ ЭЛЕМЕНТОВ ', К)

END.

 

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

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

Дана квадратная матрица N х N, состоящая из натуральных чисел. Повернуть ее на 90 градусов по часовой стрелке и вывести результат на

Экран.

 

PROGRAM PRG7_6;

CONST N = 100;

VAR А, В: ARRAY[1..N, 1..N] OF INTEGER; К, M, I, J: INTEGER;

BEGIN

WRITE('BBEflHTE РАЗМЕР МАТРИЦЫ M = ');

READLN (M);

WRITELN('HCXOAHAfl МАТРИЦА'); K:= 1;

FOR I:= 1 ТО М DO FOR J:= 1 TO M DO BEGIN

A[l₍ J]:= K; К:= K+1;

IF J<M THEN WRITE(A[I, J]: 4)

ELSE WRITELN(A[I, J]: 4) END;

Writeln('МАТРИЦА ПОСЛЕ ПОВОРОТА НА 90 ГРАДУСОВ'); FOR I:= 1 ТО М DO FOR J:= 1 ТО М DO BEGIN

B[l, J]:= A[M+1-J, I]; IF J<M THEN WRITE(B[I, J]: 4) ELSE WRITELN(B[I, J]:)

END;

END.

 

BEGIN

ASSIGN(F1, 'C: \E\ONE');

CLOSE(F2)

END.

 

Считать файл TWO, удвоив все буквы "а".

 

PROGRAM PRG8_2;

VAR F1, F2: TEXT; X: CHAR;

BEGIN

END.

Прочитать файл TWO и определить, сколько раз в нем встречается буква "а ".

PROGRAM PRG8_3;

VAR F1: TEXT; X: CHAR; К: INTEGER;

BEGIN

К:= 0;

ASSIGN(F1, 'TWO'); RESET(F 1);

WHILE NOT EOF(F1) DO BEGIN

READ(F1, X);

IF (X = 'a') OR (X = 'A') THEN К:= K+1; END;

WRITELN(r^H4ECTBO БУКВ A:', K); CLOSE(F1); END.

BEGIN

SUM:= 0; ASSIGN(F1, 'ONE'); RESET(F1);

WHILE NOT EOF(F1) DO BEGIN

READ(F1, X);

IF (X> = '0') AND (X<= '9') THEN BEGIN

К:= ORD(X)-ORD('0');

SUM:= SUM+K END;

END;

WRITELN{'SUM =: ', SUM); CLOSE(F1); END.

BEGIN

ASSIGN(F1, 'TWO'); RESET(F1); ASSIGN(F2, ' '); REWRITE(F2); L:= FILESIZE(FI); FOR I:= L-1 DOWNTO 0 DO BEGIN

SEEK(F1, I);

READ(F1, X);

END.

Дан файл F, компоненты которого являются целыми числами. Никакая из компонент не равна 0.Файл содержит столько же отрицательных чисел сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f, в файл g, так, чтобы в файле g шли сначала положительные, потом отрицательные числа.

 

program Den_1;

uses crt;

Type f=text;

var TXTfile: f;

GFile: f;

Nf:f;

fName,gName,name:string[20];

i,n,c:integer;

m:string[100];

s:array[1..100] of integer;

begin

clrscr;

writeln('*** *** Исходник *** ***');

fName:='notes_f.txt';

gName:='notes_g.txt';

Assign(TXTfile,fName);

Reset(TXTfile);

n:=1;

i:=1;

while not EOF(TXTFile) do

begin

readln(TXTFile,m);

write(m:4);

val(m,s[i],c);

i:=i+1;

n:=n+1;

end;

 

Close(TXTfile);

 

writeln;

writeln('*** *** В итоге *** ***');

Assign(GFile,gName);

rewrite(GFile);

for i:=1 to n do

begin

if s[i]>0 then

begin

writeln(GFile,s[i],' ');

write(s[i]:4);

end;

end;

for i:=1 to n do

begin

if s[i]<0 then

begin

writeln(GFile,s[i],' ');

write(s[i]:4);

end;

end;

Close(GFile);

writeln;

writeln('*** ***Задание №2 *** ***');

name:='textNotes.txt';

assign(Nf,name);

reset(Nf);

readln(Nf,m);

Close(Nf);

 

readln;

end.

Дан массив чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

PROGRAM PRG6J;

CONST М = 100;

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

BEGIN

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

READLN(N);

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

READLN(MAS[1]); MAX:= MAS[1]; К:= 1;

FOR I:= 2 TO N DO BEGIN

WRITE('BBEflHTE ЭЛЕМЕНТ МАССИВА '); READLN(MAS[I]); IF MAX<MAS[I] THEN BEGIN

MAX:= MAS[I];

К:= 1

END ELSE

IF MAX = MAS[I] THEN К:= K+1; END;

WRITELN('MAX =', MAX, 'ЭТИХ ЭЛЕМЕНТОВ', К)

END.

 

Дан массив чисел. Найти, сколько в нем пар оди­наковых соседних элементов.

PROGRAM PRG6_2;

CONST М = 100;

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

BEGIN

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

READLN(N);

К:= 0;

FOR I:= 1 ТО N DO BEGIN

WRITE('BBEflHTE ЭЛЕМЕНТ МАССИВА'); READLN(MAS[I]);

END;

FOR I:= 1 TO N-1 DO

IF MAS[I] = MAS[I-M] THEN К:= K+1;

WRITELN('OAMHAKOBblX ПАР СОСЕДНИХ ЭЛЕМЕНТОВ ', К)

END.