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

Задача 35.

Основные действия по работе с массивами

Program Massiv1;
  uses Crt;
  const { Раздел описания констант, то есть постоянных величин, определяемых в программе заранее и не изменяющихся по ходу выполнения программы }
  N=10; { Имена констант не используются для имен переменных величин (из раздела var) }
  var
      A: array [1..N] of integer; { 1..N - тип индекса. Для индекса выбран интервальный тип, то есть интервал целых чисел от 1 до N, где N определено в разделе const }
      i:integer; { Переменная, хранящая индекс элемента массива, к которому идет обращение }
begin
{ Задание значений элементов массива как случайных чисел }
  Randomize; { Инициализация датчика случайных чисел }
{ Задание элементов массива; }
  for i:=l to N do { Переменная i изменяется в цикле от 1 до N, то есть мы по очереди перебираем все элементы массива }
  A[i]:=Random(100); { В очередной элемент массива A[i] записываем случайное число от 0 до 99, обратите внимание: i - номер элемента массива (принято говорить "индекс"), A[i] -значение элемента массива }
{ Вывод элементов массива на экран в одну строку }
  ClrScr;
  Writeln('Введенный массив;');
  for i:=1 to N do
  write(A[i]:4); { На каждый элемент массива выделяется по 4 позиции строки, чтобы они не склеивались при выводе!}
  writeln;
  readln {Этот "пустой" оператор вывода отработает только один раз и переведет курсор на новую строку для дальнейшей работы }
end.





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