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