Массивы. Готовимся к проверочной

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

 

Кроме этого публикую полные тексты программ, блок-схемы которых мы обсуждали на уроках.

Программа1. Задан массив. Вводят некоторое число. Программа определяет сколько раз встретилось данное число в массиве.

Program mas;

const N = 20; {задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i,k,x: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end;

k:=0; {переменная для подсчета количества}

  For i:=1 to N do if m[i]=х then k:=k+1;

if k=0 then write(‘В массиве нет числа x’)

    else write(‘число x присутствует’, k , ‘раз’)

    End.

Программа2. Задан массив. Вводят некоторое число. Программа выводит на экран элемент, равный этому числу, и его номер.

Program mas;

const N = 20; {задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i,k,x: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end;

k:=0;

  For i:=1 to N do 

    if m[i]=х then 

    begin k:=k+1; writeln(’m[’ , i, ’]=’,m[i]); end;

if k=0 then write(‘В массиве нет числа x’)

End.

Программа3. Программа находит в массиве максимальный элемент и его номер.

Program mas;

const N = 20; {задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i, max, nmax: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end;

max:=A[1]; nmax:=1;

 For i:=2 to N do 

    if A[i] > max then  begin max:=A[i]; nmax:=i; end;

Writeln('максимальный элемент = ', max, 'его номер =', nmax);

end.

Программа4. Фрагмент программы, которая выполняет сортировку элементов массива по убыванию.

 { Алгоритм сортировки пузырьком }

  for k := 1 to n-1 do
    for i := 1 to n-1-k do
      if B[i] < B[i+1] then
      begin
        { Обмен элементов }
        x := B[i];
        B[i] := B[i+1];
        B[i+1] := x ;
      end;

  writeln('Отсортированный массив:');
  for i := 1 to M do
    write(B[i]:4);
  writeln;
end.

Массивы. Примеры программ

Уважаемые девятиклассники!

Для бОльшего понимания работы с массивами, публикую примеры программ с комментариями. Изучайте, вникайте, используйте!

Пример 1. Программа организует ввод и вывод элементов массива (способ 2).
Program mas;
const N = 100; { Задаем через константу количество элементов в массиве }
var a: array [1..N] of integer; i: integer; { Задаем массив содержащий целые значения и переменную i, которая будет использоваться в качестве индекса элемента массива}
   begin 
   writeln('Введите элементы массива: ');
   for i:=1 to N do read(a[i]);   { организуем в цикле ввод элементов массива. При вводе после запуска программы будем вводить значения через пробел. При этом мы не будем видеть как в "способе 1" индексы элементов, которые вводим!}
 write('Вывод элементов массива: '); 
 for i:=1 to N do write(a[i],'   ');         {Вывод элементов массива в строку через пробел}
end.

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

Program mas;

const N = 20; { Как и в первом примере, задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end.

Пример 3. Программа вычисляет среднюю температуру месяца

Program temperatur;

Var T:array[1..30] of  real; i, N:integer; s:real;

Begin

N:=30; s:=0;

Writeln(’Введите температуру:’);

  For i:=1 to N do 

    Begin

      Write(’T[’,i,’]=’); Readln(T[i]); s:=s+T[i];

    End;

  Writeln(’Средняя температура месяца =’, s/N:4:2);

  End.