Массивы автоматические, статические и динамические

ЛАБОРАТОРНАЯ РАБОТА № 1

Тема: Массивы автоматические, статические и динамические

Цель занятия: ознакомить с работой с массивами.

Задания:

1 Самостоятельно разберите каждый из примеров, представленных в методических рекомендациях.

2 Создайте аналогичные программы для многомерных массивов.

Необходимые приборы: персональный компьютер, система программирования.

Методические рекомендации к выполнению лабораторной работы:

Пример 1.

Program vvod;

  Const  maxM=10;

   Var tab: array[1..maxM] of integer;

  i: integer;

Begin

  writeln('Введите элементы массива ');

 For i:=1 to maxM do begin

readln(tab[i]);       end;End.

Пример 2.

Programvivod;

Const  maxM=10;

     Var tab: array[1..maxM] of integer;    i: integer;

Begin

  For i:=1 to maxM do

beginwriteln('Вывод элементов массива ');

writeln (tab[i]);  end;

End.

Пример 3.Определить сумму отрицательных элементов массива К

Program Poisk;

      Const  maxM=10;

      Var К: array[1..maxM] of integer;

        i,S: integer;

 Begin

    For i:=1 to maxM do

          begin

writeln('Введите элементы массива ');

readln(К[i]);       end;  S:=0;

for i:=1 to maxM do     if К[i]<0 then S:=S+ К[i];

          writeln('S=',S)

End.

Пример 4.

Programvvod2;

Const  maxM=10;

   Var tab1: array[1..maxM] of integer;

     i: integer;

BeginRandomize;

{функция позволяет перемешивать числа из диапазона

указанном в функции random и употребляется  перед ней }

For i:=1 to maxM do

            begin

              Tab1[i]:=random(101);

              {Функция random(101) генерирует целые

числа в диапазоне от 0 до 100}

write(tab1[i]);              end;End.