Найдите в массиве все обыкновенные числа и скопируйте их в новый

var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]lt;gt;0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(b[i]);
end.

Леонид Ходжаян 2019-09-17 02:21:18

да.

Дарина Самсыгина 2019-09-17 02:27:45

я ввел в программку 3685208647

Оксана Фупмина 2019-09-17 02:34:57

программа выдала 3 6 8 5 2 8 6 4 7

Валентина 2019-09-17 02:39:52

всё верно.

Александр Мармут 2019-09-17 02:45:55

6 8 4 это же не обыкновенные числа

Тимур 2019-09-17 02:52:33

программка просто убирает 0

Вадим Донецков 2019-09-17 02:59:40

обыкновенные числа делятся только сами на себя и на 1

Sofija Francuzeva 2019-09-17 03:08:57

Я знаю. Исправить теснее никак не получится.

Zaverjuh Nikita 2019-09-17 03:17:21

Допустил ошибку.

Боря Низьев 2019-09-17 03:25:16

исправь ошибку

О проекте

Найдите в массиве все обыкновенные числа и скопируйте их в новый

Добро пожаловать!