Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 44.

Произвести вставку элемента в одномерный массив, заданный датчиком случайных чисел.

program prim22;
  uses crt;
  var a: array [1..1000] of integer;
      r,i,k,n:integer;
begin
  randomize;
  clrscr;
{Создаем массив и выводим на экран.}
  write(' число элементов n=');readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
      write(a[i], ' ' );
    end;
{Вводим индекс и значение вставляемого элемента.}
  write(' индекс < =N ');readln(k)
  write('значение R =');readln(r);
{Смещаем элементы к концу массива, начиная с К+1.}
  for i:=n+1 downto 1 do
    begin
      if i>k then a[i]:=a[i-1];
    end;
{На К-ое место ставим введенный элемент.}
  a[k]:=r;
{Выводим на экран измененный массив}
  for i:=1 to n+1 do
    begin
      write(a[i],'');
    end;
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru