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
k:=k+1;
writeln(K);
readln;
readln;
end.
Дан одномерный массив.
Составить и вывести новый массив
с номерами элементов исходного массива, равных заданному значению.
program p14;
const n=5;
var
a,b: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]:=I;
END;
IF K=0 THEN
WRITELN('NO')
ELSE
FOR I:=1 TO K DO
writeln(B[I]);
readln;
readln;
end.
Дан одномерный массив.
Составить и вывести новый массив со значениями
элементов исходного массива, не равных заданному значению.
program p15;
const n=5;
var
a,b: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];
END;
IF K=0 THEN
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
WRITELN('NO')
ELSE
BEGIN
WRITELN('ELEMENTI');
FOR I:=1 TO K DO
writeln(B[I]);
WRITELN('HOMEPA');
FOR I:=1 TO K DO
writeln(C[I]);
end;
readln;
readln;
end.
Дан одномерный массив "A".
Вводится дополнительный массив "B" разрешенных значений.
Определить сколько элементов исходного массива "A" имеют неразрешенные значения
program p28;
const n=5; m=3;
var
A:array[1..n] of integer;
B:array[1..m] of integer;