задачки (Массивы)

[Pandemona18]

11.172. Даны массив, упорядоченный по возрастанию, и число А, о котором известно следующее: оно не равно ни одному из элементов массива, больше первого и меньше последнего элемента.
а) Вывести все элементы массива, меньшие А.
б) Найти два элемента массива (их порядковые номера и значение), в интервале между которыми находится значение А.
в) Найти элемент массива, (его порядковый номер и значение), ближайший к А.
В задачах а и б условный оператор не использовать.

11.180. В массиве имеются только два одинаковых элемента. Найти их.

11.187. Известны данные о мощности двигателя 30 моделей легковых автомобилей. Есть ли среди них модель, мощность двигателя которой превышает 200 л,с. ?

[Летучий_СкилетиК]

И в чем проблемма? показывыйте код разберемся.

[Ponkole]

На А ответ:

var b:array [1..100] of integer;
     n,i,a:integer;
begin
writeln('vvedite chislo elementov  ');
read(n);//ты тут считываешь массив и само исло
writeln('vvedite massiv    ')
for i:=1 to n do
read(b[i]);
writeln('vvedite chislo a   '
read(a);
for i:=1 to n do
if b[i]<a then write(b[i],' ') else break;
end.

НУ или так

var b:array [1..100] of integer;
     n,i,a:integer;
begin
writeln('vvedite chislo elementov  ');
read(n);//ты тут считываешь массив и само исло
writeln('vvedite massiv    ')
for i:=1 to n do
read(b[i]);
writeln('vvedite chislo a   '
read(a);
i:=1;
while b[i]<a do
begin 
write(b[i],' ');
inc(i);
end;
end.

На Б ответ

var b:array [1..100] of integer;
     n,i,a:integer;
begin
writeln('vvedite chislo elementov  ');
read(n);//ты тут считываешь массив и само исло
writeln('vvedite massiv    ')
for i:=1 to n do
read(b[i]);
writeln('vvedite chislo a   '
read(a);
i:=1;
while b[i]<a do
inc(i);
writeln('mesdu ',i-1,' ravnui  ',b[i-1]);
writeln('mesdu ',i,' ravnui  ',b[i]);
end.

На В ответ

var b:array [1..100] of integer;
     n,i,a:integer;
begin
writeln('vvedite chislo elementov  ');
read(n);//ты тут считываешь массив и само исло
writeln('vvedite massiv    ')
for i:=1 to n do
read(b[i]);
writeln('vvedite chislo a   '
read(a);
i:=1;
while b[i]<a do
inc(i);
if abs(b[i]-a)<abs(b[i-1]-a) then
writeln('',i,' ravnui  ',b[i]);
writeln('',i-1,' ravnui  ',b[i-1]);
end.

На 11.180 ответ

var a:array [1..100] of integer;
     n,i,j:integer;
begin
writeln('vvedite chislo elementov  ');
read(n);//ты тут считываешь массив и само исло
writeln('vvedite massiv    ')
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then 
begin
writeln(i,' element i ',j);
exit;
end;
end.

На 11.187 ответ:

var a:array [1..100] of integer;
     n,i,j:integer;
begin
n:=30;//ты тут считываешь массив
writeln('vvedite massiv    ')
for i:=1 to n do
read(a[i]);
j:=0;
for i:=1 to 30 do
if a[i]>200 then 
inc(j);
if j>0 then writeln('Yest') else writeln('Net');
end.

[Serge_Bliznykov]

for i:=1 to n do
if b[i]<a then write(b[i],' ') else break;

ну, мне кажется, в данной задаче гораздо лучше использовать цикл с условием. например:

i:=1;
While b[i]<a do begin
  write(b[i],' ');
  inc(i);
end;

хотя, конечно, это дело вкуса..