Предмет: Информатика,
автор: pixie258
Помогите сделать) Удалить первый элемент массива кратный 3.
Ответы
Автор ответа:
0
const
n = 10;
var
a : array [1..n] of integer;
i,m : integer;
begin
for i := 1 to n do //При формировании забил
a[i] := i; //просто индексы
m := 0;
i := 1;
while (m = 0)
and (i<=n) do
begin
if a[i] mod 3 = 0 then
begin
a[i] := 0;
m := 1;
end ;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.
n = 10;
var
a : array [1..n] of integer;
i,m : integer;
begin
for i := 1 to n do //При формировании забил
a[i] := i; //просто индексы
m := 0;
i := 1;
while (m = 0)
and (i<=n) do
begin
if a[i] mod 3 = 0 then
begin
a[i] := 0;
m := 1;
end ;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.
Автор ответа:
0
ОН ЗАЦИКЛИЛСЯ!
Автор ответа:
0
WTF
Автор ответа:
0
у меня вроде работает PascalABC.Net
Автор ответа:
0
И даже если подходящего элемента нет, то он выходит из while
Автор ответа:
0
оу. а у меня Турбо паскаль
Похожие вопросы
Предмет: Химия,
автор: lilasamashko
Предмет: Музыка,
автор: romavoloboev
Предмет: Математика,
автор: ks10Peach21
Предмет: Математика,
автор: valushonok
Предмет: Алгебра,
автор: ЕкатеринаНикон