03.05.2009, 20:43
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
Сообщение от MRAK9
[pascal]
собственно мессага: ввод массива чисел(размер не менее 15), ввод числа и поиск его в массиве, если значений несколько-опр. их количество и порядковые номера, если значений нет-поиск ближайшего большего
заранее спасибо( + за мной не заржавеет  ) 
собственно код: (он на дельфи но переделаешь в лёт  )
PHP код:
program Project1;
uses
SysUtils;
var
s: array [0..14] of integer;
i,x,j,b: integer;
begin
writeln('********************************'+#10+
'Vvedie element`i massiva:');
for i:=0 to 14 do
begin
read(s[i]);
end;
writeln('________________________________' + #10 +
'Massiv zapolnen do 15 znachenii' + #10 +
'Vvedite chiclo poiska v massive');
read(x);
writeln('################################' + #10);
b:=0;
for i:=0 to 14 do
begin
if s[i]=x then
begin
writeln('> ='+IntToStr(i));
b:=b+1;
end;
end;
if b>0 then
begin
writeln('Odinakovih elementov:' + IntToStr(b));
end
else
begin
x:=s[0];
for i:=1 to 14 do
begin
if s[i]>x then
begin
x:=s[i];
b:=i;
end;
end;
writeln('Odinakovih elementov nety:' + #10 +
'Samii Bolshoi Element:' + IntToStr(x) + #10 +
'On stoit v massive pod nomerom: '+IntToStr(b));
end;
read(x);
end.
i,x,j,b: integer;-Не обращай на j внимание, просто мега обфускация.
Последний раз редактировалось Flame of Soul; 03.05.2009 в 20:52..
|
|
|