Массив и поиск кратных чисел в нем

@Bert · Регистрация: 03.06.2014

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

Здравствуйте! Цель написать процедуру, которая будет из одномерном массиве выводить числа кратные, например, 5.
Подскажите пожалуйста, в чем ошибка.

Delphi

procedure TForm1.Button5Click(Sender: TObject);
var n,i,min:integer; a:array [1..10] of integer;
begin
n:=strtoint(edit4.Text);
memo4.Clear;
for i:=1 to n do begin
a[i]:=random(10);
memo4.lines.strings[0]:=memo4.Lines.strings[0]+inttostr(a[i])+#1;
for a[i]:= 1 to n do
if i mod 5 = 0 then  Memo6.Lines.Add(IntToStr(i));
end;
 end;

@Puporev · 03.06.2014, 15:45

Ты наверное думаешь что первый пишешь эту галиматью, а посмотреть в поиске не судьба?

Delphi

procedure TForm1.Button5Click(Sender: TObject);
var n,i,k:integer;
    a:array [1..10] of integer;
begin
n:=strtoint(edit4.Text);
memo4.Clear;
memo6.Clear;
for i:=1 to n do
 begin
  a[i]:=random(10);
  memo4.Text:=memo4.Text+inttostr(a[i])+' ';
 end;
k:=0;
for i:= 1 to n do
if a[i] mod 5 = 0 then
 begin
  Memo6.Lines.Add(IntToStr(a));
  k:=1
 end;
if k=0 then Memo6.Lines.Add('Нет чисел кратных 5')
end;

@Bert · 03.06.2014, 16:12 **[ТС]**

Искал, даже нашел, но в чем то выходила ошибка. Как и сейчас. Пробовал переделать, но кратные числа не выводи, и сообщение о не найденных числах не выводит.
[]http://imglink.ru/pictures/03-06-14/ed44884f8372fdf74b8d217f938672c5.jpg[/]

@Puporev · 03.06.2014, 16:22

А у меня все выводит

Delphi

procedure TForm1.Button5Click(Sender: TObject);
var n,i,k:integer;
    a:array [1..10] of integer;
begin
n:=strtoint(edit4.Text);
memo4.Clear;
memo6.Clear;
for i:=1 to n do
 begin
  a[i]:=1+random(30);
  memo4.Text:=memo4.Text+inttostr(a[i])+' ';
 end;
k:=0;
for i:= 1 to n do
if a[i] mod 5 = 0 then
 begin
  Memo6.Lines.Add(IntToStr(a[i]));
  k:=1
 end;
if k=0 then Memo6.Lines.Add('Нет чисел кратных 5')
end;

@Bert · 03.06.2014, 17:14 **[ТС]**

Не понимаю, если даже с вашего исходника скопировать и вставить, то ничего не находит.
Ну да и ладно, отдельно ваш тоже подойдет))

Массив и поиск кратных чисел в нем

Решение

Решение

@Bert 1 / 1 / 0 Регистрация: 03.06.2014 Сообщений: 32
	03.06.2014, 16:12 [ТС]	3
	Искал, даже нашел, но в чем то выходила ошибка. Как и сейчас. Пробовал переделать, но кратные числа не выводи, и сообщение о не найденных числах не выводит. []http://imglink.ru/pictures/03-06-14/ed44884f8372fdf74b8d217f938672c5.jpg[/] 0

@Bert 1 / 1 / 0 Регистрация: 03.06.2014 Сообщений: 32
	03.06.2014, 17:14 [ТС]	5
	Не понимаю, если даже с вашего исходника скопировать и вставить, то ничего не находит. Ну да и ладно, отдельно ваш тоже подойдет)) 0