uses Crt; const n=10; type Mas=array [1..n] of integer; var A: Mas; i, temp, MinInd, MaxInd, Max, Min: integer; begin ClrScr; Randomize; for i:=1 to n do begin A[i]:=10+random(90); Write (A[i]:5); end; WriteLn; Max:=A[1]; MaxInd:=1; Min:=A[1]; MinInd:=1; for i:=2 to n do begin if A[i]<Min then begin Min:=A[i]; MinInd:=i; end else if A[i]>Max then begin Max:=A[i]; MaxInd:=i; end; end; temp:=A[MaxInd]; A[MaxInd]:=A[MinInd]; A[MinInd]:=temp; WriteLn;WriteLn; for i:=1 to n do Write (A[i]:5); WriteLn; ReadLn; end.
Для проверки, закрыты ли все скобки, можно было бы просто их посчитать, но мы будем проверять правильность вложенности. Для этого нам пригодится std::stack (да, и решаем на С++).
#include <iostream> #include <stack> #include <string> using namespace std; typedef unsigned short int USI;
bool hasCorrectBracing(string);
int main() { setlocale(0, ""); // кириллица USI N; cout << "N = "; cin >> N; string row;
for(size_t i = 1; i <= N; i++) { cout << "Строка " << i << ": "; cin >> row; if ( hasCorrectBracing(row) ) { cout << "Good\n"; } else { cout < "Bad\n"; } }
Посмотрел решение на С++. Ну что же, я недаром зову его "полуассемблер" - нечего ему в общеобразовательных школах делать... Писать долго, много и непонятно для непосвященных. А сколько при этом можно ошибок сделать - просто жуть. Вот для сравнения решение на Паскале. Я тоже использовал стек, чтобы проще было сравнивать)))
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
function IsGood(s:string):Boolean; begin var St:=new Stack<char>; foreach var c in s do case c of '(':St.Push(c); ')':if St.Count>0 then St.Pop else begin Result:=false; Exit end; end; Result:=St.Count=0 end;
begin var n:=ReadlnInteger('N='); var s:=ReadArrString(n); s.Select(x->IsGood(x)).Select(x->x?'Good':'Bad').Println(NewLine) end.
Контрольный пример (скобки "разбавлены" числами, чтобы было ясно, что программа не только скобки умеет читать, но и проверять их расстановку в произвольной строке)
N= 4 12(3)456(7)8 123((67)8) 12)34(5 (1(234)567 Good Good Bad Bad
uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
begin
A[i]:=10+random(90);
Write (A[i]:5);
end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
if A[i]<Min then
begin
Min:=A[i];
MinInd:=i;
end
else
if A[i]>Max then
begin
Max:=A[i];
MaxInd:=i;
end;
end;
temp:=A[MaxInd];
A[MaxInd]:=A[MinInd];
A[MinInd]:=temp;
WriteLn;WriteLn;
for i:=1 to n do
Write (A[i]:5);
WriteLn;
ReadLn;
end.