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

Задача 43.

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

program рrim3;
  uses crt;
  var a.array [1..1000] of integer;
      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(' номер удал. элем. k=<п ');readln(k);
  for i:=1 to n-1 do
    begin
{Смещаем элементы массива к началу, начиная с К-го.}
       if i>=k then a[i]:=a[i+1];
    end;
{Обнуляем последний элемент.}
  a[n]:=0;
{Выводим на экран измененный массив.}
  for i:=1 to n - 1 do
    begin
      write(a[i],' ');
    end;
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100