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

Question

Информатика

Данилыч

3 февраля, 10:20

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

+4

Ответы (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.