Сформируйте одномерный массив из 6 элементов (значения элементов укажет пользователь с клавиатуры). Удалить элемент под номером 3.

Question

Информатика

Куприян

1 января, 08:17

Сформируйте одномерный массив из 6 элементов (значения элементов укажет пользователь с клавиатуры). Удалить элемент под номером 3.

+1

Ответы (1)

Знаете ответ?

Линя · Answer 1

Uses crt;

var a:array[1 ... 6] of integer;

i:integer;

begin

for i:=1 to 6 do

readln (a[i]) ;

writeln;

for i:=3 to 5 do

a[i]:=a[i+1];

a[6]:=0;

for i:=1 to 5 do

writeln (a[i]) ;

end.