Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к.

@gayazik · Регистрация: 06.05.2011

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

Помогите пожалуйста задачка на одномерные массивы нужна прога зараннее благодарен!!!

@KaiTheCat · 29.05.2011, 13:11

Pascal

VAR
   a,b: array[1..100] of integer;
   i,n,n1,k: byte;
BEGIN
   Randomize;
   Write('введите n: ');
   ReadLn(n);
   WriteLn('массив');
   For i:=1 to n do
      Begin
         a[i]:=Random(101)-50;
         Write(a[i],' ');
      End;
   WriteLn;
   Write('введите k: ');
   ReadLn(k);
   For i:=1 to n do
      If a[i] mod 10 = k then
         Begin
            inc(n1);
            b[n1]:=a[i];
         End;
   WriteLn('новый массив');
   For i:=1 to n1 do write(b[i],' ');
   ReadLn;
END.

@gayazik 2 / 2 / 0 Регистрация: 06.05.2011 Сообщений: 31
		1
	Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к. 28.05.2011, 23:13. Показов 17017. Ответов 1 Метки нет (Все метки) Помогите пожалуйста задачка на одномерные массивы нужна прога зараннее благодарен!!! 0

	29.05.2011, 13:11

Опции темы

Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к.

Решение