Var I, j, k : Word;

Massiv : Array [1..n, 1..m] Of Word;

Begin

ClrScr;

k:= 0; рабочая переменная для задания элементов массива

For i:=1 To n Do заполнение массива

For j:=1 To m Do

Begin

k:= k + 1;

Massiv[i, j]:= k;

End;

For i:=1 To n Do форматный вывод массива на экран построчно

Begin

For j:=1 To m Do

Write(Massiv[i, j]:5);

WriteLn;

End;

WriteLn;

ReadLn;

End.

4.Задать элементы целочисленного вектораvector_nслучайными числами, лежащими в диапазоне отvect_minдоvect_max. Вывести полученный вектор на экран в одну строку. Определить индексi_max и значениеvector_maxмаксимального элемента вектора.

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

Program Primer_4;

Uses WinCrt;

Const n = 10; задание исходных данных в виде именованных констант

vect_min = -10;

vect_max = 10;

Var I, i_max, vector_max : Integer;

Vector : Array [1..N] Of Integer;

Begin

ClrScr;

Randomize;

For i:=1 To n Do

Vector[i]:=Random(vect_max – vect_min + 1) + vect_min;

For i:=1 To n Do

Write(Vector[i]:5);

WriteLn;

Vector_max:= Vector[1]; пока максимальный элемент – первый

i_max:= 1; элемент вектора

For i:=2 To n Do поиск начинаем со второго элемента!

If (Vector[i] > Vector_max) Then если очередной элемент больше

Begin текущего максимального,

Vector_max := Vector[i]; то максимальным элементом

i_max := i; становится очередной элемент вектора

End;

WriteLn(‘Vector_max=’, Vector_max);

WriteLn(‘i_max=’, i_max);

ReadLn;

End.

5.Задать элементы целочисленного вектораvector_nслучайными числами, лежащими в диапазоне отvect_minдоvect_max. Вывести полученный вектор на экран. Определить суммуSэлементов вектора.

Перед началом суммирования сбрасываем сумму на нуль, потом в цикле будем добавлять в нее очередной элемент:

Program Primer_5;

Uses WinCrt;

Const n = 10; задание исходных данных в виде именованных констант

vect_min = -50;

vect_max = 50;

Var I, s : Integer;

Vector : Array [1..N] Of Integer;

Begin

ClrScr;

Randomize;

For i:=1 To n Do

Vector[i]:=Random(vect_max – vect_min + 1) + vect_min;

For i:=1 To n Do

Write(Vector[i]:5);

WriteLn;

S := 0; начальная сумма равна нулю!

For i:=1 To n Do добавляем в сумму очередной

s := s + Vector[i]; элемент вектора

WriteLn(‘s=’, s);

ReadLn;

End.

6.Задать элементы целочисленного вектораvector_nслучайными числами, лежащими в диапазоне отvect_minдоvect_max. Вывести полученный вектор на экран. Перевернуть вектор: поменять местами первый и последний элементы, второй и предпоследний, и так далее (поплавок):

Program Primer_6;

Uses WinCrt;

Const n = 10;

vect_min = -50;

vect_max = 50;