WRITELN('NO')

ELSE

FOR I:=1 TO K DO

writeln(B[I]);

readln;

readln;

End.

Дан одномерный массив.

Подсчитать процент нулевых элементов.

program p17;

const n=4;

Var

a:array[1..n] of integer;

k,i:integer;

pr:real;

Begin

WRITELN('BBOD MASIVA');

FOR I:=1 TO N DO

READ(A[I]);

K:=0;

FOR I:=1 TO N DO

IF A[I]=0 THEN

K:=K+1;

IF K=0 THEN

WRITELN('TAKIX HET')

ELSE

BEGIN

PR:=K/N*100;

WRITE('PR= ',PR);

END;

READLN;READLN;

END.

Дан одномерный массив.

Определить какая сумма по абсолютной величине больше,

Отрицательных или положительных элементов массива.

program p18;

const n=5;

Var

a:array[1..n] of integer;

kOTR,KPOL,i:integer;

pr:real;

Begin

WRITELN('BBOD MASIVA');

FOR I:=1 TO N DO

READ(A[I]);

KPOL:=0;KOTR:=0;

FOR I:=1 TO N DO

IF A[I]>0 THEN

KPOL:=KPOL+1

ELSE

IF A[I]<0 THEN

KOTR:=KOTR+1;

IF KPOL>ABS(KOTR) THEN

WRITELN('KPOL>KORT')

ELSE

IF ABS(KOTR)>KPOL THEN

WRITELN('KOTR>KPOL')

ELSE

WRITELN('BSE ELEM HULEVIE ILI KPOL=KOTR');

READLN;READLN;

END.

Дан одномерный массив.

Определить есть ли в нем одинаковые элементы.

program p25a;

const n=5;

Var

a:array[1..n] of integer;

i,j,f:integer;

Begin

writeln('vvod massiva');

for i:=1 to n do

read(a[i]);

f:=0;

for i:=1 to n do

for j:=1 to n do

if (a[i]= a[j]) and (i<>j) then

f:=1;

if f=0 then

Writeln('no')

Else

writeln('yes');

readln; readln;

End.

Дан одномерный массив.

Все элементы, меньшие заданного значения, и их номера записать в новые массивы

program p27;

const n=5;

Var

a,b,c:array[1..n] of integer;

i,k,z:integer;

Begin

writeln('mas');

for i:=1 to n do

read(a[i]);

writeln('z');

read(z);

k:=0;

for i:=1 to n do

if a[i]<z then

BEGIN

k:=k+1;

B[K]:=A[I];

c[k]:=I;

END;

IF K=0 THEN