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

Задача 38.

Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знаком

Program Massiv2;
  const N=10;
  type { Раздел описания типов переменных. Эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел }
    Mas=array [1..N] of integer; { 1..N - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до N. где N определено в разделе const }
  var
      Line:Mas; { Line - одномерный массив, его тип определен нами как Mas }
      i:integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение }
begin
{ Ввод массива с клавиатуры }
  for i:=l to N do { Обращение к элементам массива происходит в цикле, по очереди }
    begin { Начало цикла ввода элементов массива }
      write('Введите элемент с индексом ' ,i,' :');
      readln(Line[i]) { Обращаемся к i-му элементу массива (Line[l],Line[2] и т. д.) }
    end; { Конец цикла ввода элементов массива }
{ Вывод элементов происходит также в цикле:}
  for i:=l to N do { Перебираем все N элементов массива }
    write(-Line[i]:5); { 10 элементов выводятся в строку. Выводим все элементы массива с противоположным знаком }
  writeln; { После вывода массива элементов - переход на новую строку }
  readln
end.





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