Вставить число 100 после пятого элемента массива

@RUSHMASHINA · Регистрация: 24.12.2012

Author24 — интернет-сервис помощи студентам

Привет всем!) помогите ребят плз)
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10,60].
Вставить число 100 после пятого элемента массива.

@CodeR · 24.12.2012, 11:22

Pascal

Const n=12;
Var A:array[1..n+1] of integer;
    i:byte;
Begin
    writeln('Исходный');
    For i:=1 to n do
    Begin
      A[i]:=random(71)-10;
      write(A[i]:4);
    End;
    writeln;
    writeln('Преобразованный');
    For i:=n downto 6 do
     A[i+1]:=A[i];
    A[6]:=100;
    For i:=1 to n+1 do
     write(A[i]:4);
    readln;
End.

@RUSHMASHINA 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 8
		1
	Вставить число 100 после пятого элемента массива 24.12.2012, 07:33. Показов 1895. Ответов 1 Метки нет (Все метки) Привет всем!) помогите ребят плз) Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10,60]. Вставить число 100 после пятого элемента массива. 0

	24.12.2012, 11:22

Вставить число 100 после пятого элемента массива

Решение