Вывести полученый массив и сумму с поясняющими комментариями

@Jhonicor · Регистрация: 24.05.2013

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

Дан одномерный массив В(n), n<=30
содержащий элементы целого типа . Подсчитать сумму индексов элементов, равных 0 . Упорядочитать массив методом обменов . Вывести полученый массив и сумму с поясняющими комментариями

@snyp · 11.06.2013, 18:40

Pascal

var
 b : array[1..30] of integer;
 n, i, j, c, s : integer;
begin
 Readln(n);
 for i:=1 to n do
  Read(b[i]);
 s:=0;
 for i:=1 to n do
  if b[i]=0 then s:=s+i;
 for i:=1 to n do     //под словом "упорядочить я понимаю: отсортировать массив 
//по возрастанию
  for j:=i to n do    //это есть сортировка пузырьком, она меняет местами числа, 
//если впередистоящее окажется больше последующего
   if b[i]>b[j] then
    begin
     c:=b[i];
     b[i]:=b[j];
     b[j]:=c;
    end;
 for i:=1 to n do
  Write(b[i], ' ');
 Writeln;
 Writeln(s);
end.

@Jhonicor 0 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 5
		1
	Вывести полученый массив и сумму с поясняющими комментариями 11.06.2013, 15:59. Показов 1174. Ответов 1 Метки нет (Все метки) Дан одномерный массив В(n), n<=30 содержащий элементы целого типа . Подсчитать сумму индексов элементов, равных 0 . Упорядочитать массив методом обменов . Вывести полученый массив и сумму с поясняющими комментариями 0

Опции темы

Вывести полученый массив и сумму с поясняющими комментариями

Решение