Удалить из массива все элементы, в которых последняя цифра четная, а само число делится на нее

@Makarons · Регистрация: 14.04.2010

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

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,60].
помогите, пожалуйста: удалить из него все элементы, в которых последняя цифра четная, а само число делится на нее.

@unick12345 · 14.04.2010, 14:58

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const n=10;
  var s,k:array[1..n] of integer;i,j:integer;
begin
randomize;
for i:=1 to n do
begin
s[i]:=random(60)-10;
write(s[i],' ');
end;
j:=0;
writeln;
for i:=1 to n do
if ((s[i] mod 10) mod 2 <>0) then
begin inc(j); k[j]:=s[i];end
else
if (s[i] mod (s[i] mod 10)<>0) then
begin inc(j); k[j]:=s[i];end;
for i:=1 to j do
write(k[i],' ');
readln;
end.

@Makarons · 14.04.2010, 17:12 **[ТС]**

спасибо конечно)
а если так начать...мне продолжение...не могу понять...ошибку выдает все время

Delphi

var
  Form2: TForm2;
N: integer;
M: array of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
 
begin
 randomize;
 N:=StrToint(edit3.text);
 SetLength(M,N);
 Edit1.Text:=' ';
 for i:=0 to n-1 do
    begin
    M[i]:=round(sin(random(10))*60);
    edit1.Text:=edit1.Text+'   '+inttostr(M[i]);
    end;
end;

@unick12345 · 14.04.2010, 17:23

Makarons, что используешь в форме для ввода и вывода?

@unick12345 · 14.04.2010, 17:30

вот пару примеров

@Makarons · 14.04.2010, 17:32 **[ТС]**

edit..ты про это?

@unick12345 · 14.04.2010, 18:01

какбы да

@Makarons · 14.04.2010, 18:24 **[ТС]**

все равно не получается...выводит только изначальный массив..а тот где, должны быть удалены элементы не считает..
и почему надо писать a=(m[i] mod 10) mod 2<>0
мне же надо чтоб делилось на последнюю цифру, а не на 2

@unick12345 · 15.04.2010, 12:27

Сообщение от Makarons

удалить из него все элементы в которых последняя цифра четная

Сообщение от Makarons

a=(m[i] mod 10) mod 2<>0

вопрос=решение

@Makarons · 16.04.2010, 10:01 **[ТС]**

+"а само число делится на нее" еще пожалуйста)

@unick12345 · 16.04.2010, 15:12

Сообщение от Makarons

а само число делится на нее

Сообщение от unick12345

(s[i] mod (s[i] mod 10)<>0)

если остаток при деленнии s[i] на остаток при делении s[i] на 10 (тоесть последняя цифра) =0 то удалить, иначе вывести на экран

вопрос=решение

@Makarons · 16.04.2010, 18:09 **[ТС]**

ооооо...аа...точно) большое спасибо)

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	16.04.2010, 15:12	11
	Сообщение от Makarons а само число делится на нее Сообщение от unick12345 (s[i] mod (s[i] mod 10)<>0) если остаток при деленнии s[i] на остаток при делении s[i] на 10 (тоесть последняя цифра) =0 то удалить, иначе вывести на экран вопрос=решение 1

@Makarons 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 37
		1
	Удалить из массива все элементы, в которых последняя цифра четная, а само число делится на нее 14.04.2010, 14:19. Показов 1646. Ответов 11 Метки нет (Все метки) Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,60]. помогите, пожалуйста: удалить из него все элементы, в которых последняя цифра четная, а само число делится на нее. 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	14.04.2010, 17:23	4
	Makarons, что используешь в форме для ввода и вывода? 0

@Makarons 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 37
	14.04.2010, 17:32 [ТС]	6
	edit..ты про это? 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	14.04.2010, 18:01	7
	какбы да 0

@Makarons 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 37
	14.04.2010, 18:24 [ТС]	8
	все равно не получается...выводит только изначальный массив..а тот где, должны быть удалены элементы не считает.. и почему надо писать a=(m[i] mod 10) mod 2<>0 мне же надо чтоб делилось на последнюю цифру, а не на 2 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	15.04.2010, 12:27	9
	Сообщение от Makarons удалить из него все элементы в которых последняя цифра четная Сообщение от Makarons a=(m[i] mod 10) mod 2<>0 вопрос=решение 0

@Makarons 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 37
	16.04.2010, 10:01 [ТС]	10
	+"а само число делится на нее" еще пожалуйста) 0

@Makarons 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 37
	16.04.2010, 18:09 [ТС]	12
	ооооо...аа...точно) большое спасибо) 0