Поближе к началу массива


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

Program beginmax;
const n=10;
var
A:array [1..n] of integer;
i,nmin,nmax:integer;
begin
writeln();
nmin:=1;
nmax:=1;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if a[nmin]>a[i] then nmin:=i;
if a[nmax]<a[i] then nmax:=i;
end;
writeln();
if nmax>nmin then writeln(’min’);
if nmin>nmax then writeln(’max’);
if nmax=nmin then writeln(’vsw elementi ravni’);
end.

Теги: , , , ,

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


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

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.

Теги: , , ,

«1234567891011121314151617181920»