Контакты

Случайная статья

Применение цикла с предварительным условием»

Применение цикла с предварительным условием»

Вариант 3

Задание 1.

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

Алгоритм выполнения	Программа на языке Паскаль
	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).

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.

Результат:

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.