«Действия над элементами одномерного массива»

«Действия над элементами одномерного массива»

Вариант 3

Цель: Формирование навыков работы с вектором данных.

Задание 1.

Составьте программу расположения элементов в массиве A(N) так, чтобы отрицательные были в конце.

Алгоритм выполнения

Программа на языке Паскаль

a[i], ' '

p: =1

programst1; vara: array[1.. 100]ofinteger; n, i: integer; begin write ('Введите n: '); read(n); fori: =1 ton do read(a[i]); fori: =1 ton do if(a[i]> =0)thenwrite(a[i], ' '); fori: =1 ton do if(a[i]< 0)thenwrite(a[i], ' '); end.

Результат:

Задание 2.

Составьте программу обмена в массиве B(N) первого отрицательного и максимального элементов.

Алгоритм выполнения	Программа на языке Паскаль
	Programst2;

Результат:

Задание 3.

Составьте программу удаления минимального элемента массива С(N).

Алгоритм выполнения

Программа на языке Паскаль

mn: =i

mn: =a[i]

imn: =1

mn: =a[1]

a[i]: =-25+random(50)

Programst3; constnmax=100; vara: array[1.. nmax] ofinteger; n, i, mn, imn: integer; begin randomize; repeat write('Размер массива до ', nmax, ' n='); read(n); untiln in[1.. nmax]; writeln('Исходный массив: '); fori: =1 ton do begin a[i]: =-25+random(50); write(a[i]: 4); ifi=1 then begin mn: =a[1]; imn: =1; end else ifa[i]< mn then begin mn: =a[i]; mn: =i end; end; writeln; writeln('Минимальный элемент=', mn); ifmn=n thenn: =n-1 else begin fori: =mn ton-1 do a[i]: =a[i+1]; n: =n-1 end; writeln('Удаление минимального: '); fori: =1 ton do write(a[i]: 4); end.

n: =n-1

Результат: