Проверить количество открытых и закрытых скобок


Дана строка символов. Проверить, совпадает ли в нем количество открытых и закрытых круглых скобок.

Program skobki;
const n=150;
var
A:array [1..n] of char;
i,tmp:integer;
begin
writeln();
tmp:=0;
for i:=1 to n do begin
A[i]:=chr(random(255));
write(a[i]);
if a[i]=’(’ then tmp:=tmp+1;
if a[i]=’)’ then tmp:=tmp-1;
end;
writeln();
if tmp=0 then writeln(’Sovpadaet’)
else writeln(’Ne sovpadaet’)
end.

Теги: , , ,

Запись нулей в строку с наименьшим элементом матрицы


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

Program null;
const n=4;m=4;
var
A:array [1..n,1..m] of integer;
i,j,imin,jmin:integer;
begin
writeln;
for i:=1 to n do begin
writeln();
for j:=1 to m do begin
A[i,j]:=random(100);
write(a[i,j],’ ‘);
end;
end;
imin:=1; jmin:=1;
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]<a[imin,jmin] then begin
imin:=i;
jmin:=j;
end;
end;
for i:=1 to n do begin
writeln();
for j:=1 to m do begin
if i=imin then a[i,j]:=0;
write(a[i,j],’ ‘);
end;
end;
end.

Теги: , , ,

«1234567891011121314151617181920»