Арифметическая задача...

@regina-2293 · Регистрация: 15.01.2012

Author24 — интернет-сервис помощи студентам

В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей слева и справа?

Заранее спасибо.

@Electroflower · 18.01.2012, 23:12

ввод массива пользователем можно так сделать

:

Delphi

var
  Form1: TForm1;
  A: array[1..99] of integer ;
  n,i, schet:Integer;
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit1.text);
A[i]:=n;
if A[i]<>0 then
Edit2.Text:=Inttostr(A[i])+' '+ Edit2.Text;
if A[i]=0 then
begin
ShowMessage('Ввод окончен');
Edit1.hide;
Button1.Hide;
end;
end;

как только пользователь вводит 0 запись в массив прекращается(при этом 0 в массив не попадает

)

@regina-2293 20 / 0 / 0 Регистрация: 15.01.2012 Сообщений: 17
		1
	Арифметическая задача... 18.01.2012, 15:25. Показов 1163. Ответов 1 Метки нет (Все метки) В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей слева и справа? Заранее спасибо. 0

	18.01.2012, 23:12

Арифметическая задача...

Решение