Узнать количество нужных элементов массива

Среда, 09 Сен 2009

Дан массив действительных чисел. Подсчитать количество элементов массива, значения которых больше среднего арифметического этого массива.

Program bolshsrarifm;
const n=10;
var
A:array [1..n] of real;
i,kvo:integer;
sum:real;
begin
writeln();
sum:=0;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
sum:=sum+a[i];
end;
sum:=sum/n;
writeln();
kvo:=0;
for i:=1 to n do
if sum<a[i] then kvo:=kvo+1;
writeln(’Sred - ‘,sum,’ k-vo - ‘,kvo);
end.

Рубрика: Массив | Comments Off

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

Среда, 09 Сен 2009

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

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.

Рубрика: Массив | Comments Off

1234»