(50 баллов) Помогите, пожалуйста!!! Программа Паскаль: написать массив, который выводит...

Question

(50 баллов) Помогите, пожалуйста!!! Программа Паскаль: написать массив, который выводит все элементы с нулём.

Comments

Странная какая задача. Что значит "написать массив"?

---

Пример напишите. Вот массив с нулём: 5, 1, 0, 8, 2. И что?

---

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

---

Что нужно сделать с массивом 5, 1, 0, 8, 2? Вывести номер нулевого элемента?

---

Вывести числа, содержащие ноль.. Например, задать массив[0..100] и он должен вывести все числа кратные нулю... но я не знаю как это сделать

---

Можете помочь?

---

Чисел, кратных 0 нет, так как на 0 делить нельзя. Чтобы Вам помочь, необходимо правильно сформулировать задачу.

---

Вывести элементы массива,содержащие ноль

---

Теперь понятно. А почему пишете (50 баллов)?

Answer 1

А еще можно вот так...

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),100,999); a.Println;
  a.Where(x->(x.ToString.IndexOf('0')>0)).Println;
end.

Тестовое решение:
n= 16
959 277 138 801 580 575 785 986 679 544 762 852 614 460 955 411
801 580 460

И даже можно решить одним-единственным "оператором" )))

begin
  ArrRandom(ReadInteger('n='),100,999).Println.
      Where(x->(x.ToString.IndexOf('0')>0)).Println;
end.

Answer 2

Const n=10;
var a:array[1..n] of integer;
i:integer; c:string;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(200);
 write(a[i]:5);
 end;
writeln;
for i:=1 to n do
 begin
 str(a[i],c);
 if pos('0',c)>0 then write(a[i]:5);
 end;
writeln;
end.

Пример:
  110   43   38   35  103   44   35  192   86  199
  110  103

Comments

А почему 43, 38 тут есть, они же не содержат ноль?