Одномерные массивы

@melamory · Регистрация: 20.03.2009

Студворк — интернет-сервис помощи студентам

Задание. Написать программу для формирования и печати одномерного массива. Сформированный массив перед выводом на экран упорядочить по возрастанию.

Дан вектор Y(n), n<12. Сформировать вектор С из ненулевых элементов вектора Y, предшествующих первому отрицательному элементу вектора.

@Sergei · 28.04.2009, 10:04

Вот код первой программы.

Pascal

program Project2;
uses
 crt;
type vector = array[1..1000] of integer;
matrix = array[1..100]of vector;
var 
    a:vector;
    i,n:integer;
procedure ShowArray(a:vector;n:integer);
var i:integer;
begin
    for i:=1 to n do 
  begin
    write(a[i],' ');
 end;
 writeln;
end;
procedure InitArray(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
  begin
    a[i] := random(100) -50;    
 end;
end;
procedure BubleSort(var a:vector;n:integer);
var i,j:integer;
temp:integer;
begin
    for i:=1 to n do
       for j:= 1 to n - i do
       begin
       if (a[j] >= a[j+1]) then
       begin
            temp := a[j];
            a[j] := a[j+1];
            a[j+1] := temp;
       end;
     end;
end;
 
begin
 write('n=');readln(n);
 InitArray(a,n);
 writeln('Ishodnii massiv');
 ShowArray(a,n);
 writeln('Otsortirovannii massiv');
 BubleSort(a,n);
  ShowArray(a,n);
  readln;
end.

Не забываем про кнопку спасибо.

@melamory · 29.04.2009, 02:44 **[ТС]**

Спасибо) но это одно задание и я так думаю все должно быть в одной программе.

@melamory 2 / 2 / 0 Регистрация: 20.03.2009 Сообщений: 6
		1
	Одномерные массивы 28.04.2009, 06:07. Показов 1602. Ответов 2 Метки нет (Все метки) Задание. Написать программу для формирования и печати одномерного массива. Сформированный массив перед выводом на экран упорядочить по возрастанию. Дан вектор Y(n), n<12. Сформировать вектор С из ненулевых элементов вектора Y, предшествующих первому отрицательному элементу вектора. 1

@melamory 2 / 2 / 0 Регистрация: 20.03.2009 Сообщений: 6
	29.04.2009, 02:44 [ТС]	3
	Спасибо) но это одно задание и я так думаю все должно быть в одной программе. 1

Опции темы

Одномерные массивы

Решение