Одномерные массивы: Подсчитать сумму индексов элементов, равных 0

29.06.2013, 12:38. **Показов** 1311. **Ответов** 1

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

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

@MicM · 29.06.2013, 12:51

Pascal

var
  b:array [1..30] of integer;
  i,j,n,sum,tmp:integer;
begin
  repeat
   write ('Razmer massiva: ');
   readln(n);
  until n in [1..30];
  randomize;{инициализация генератора случайных чисел}
  sum:=0;
  for i:=1 to n do
   begin
    b[i]:=random(8);{присвоение элементу массива случайного значения}
    write (b[i],' ');{вывод этого элемента}
    if b[i]=0 then sum:=sum+i;{если элемент равен нулю,то считаем его индекс}
   end;
  writeln;
  writeln ('Summa: ',sum);{вывод сумммы}
  for i:=1 to n-1 do{смотрим элементы массива}
   for j:=i+1 to n do{сравниваем с элементами,которые впереди}
    if b[j]<b[i] then{если впереди нашли эл. меньше,то}
     begin
      tmp:=b[i];{с помощью дополнительной переменной}
      b[i]:=b[j];{меняем их местами}
      b[j]:=tmp;
     end;
  for i:=1 to n do write (b[i],' ');{вывод сортированного массива}
  writeln;
  readln;
end.

igorscorp
		1
	Одномерные массивы: Подсчитать сумму индексов элементов, равных 0 29.06.2013, 12:38. Показов 1311. Ответов 1 Метки нет (Все метки) Дан одномерный массив B(n), n<=30 , содержащий элементы целого типа. Подсчитать сумму индексов элементов, равных 0.Упорядочить массив методом обменов. Вывести полученный массив и сумму с поясняющими комментариями.

	29.06.2013, 12:51

Опции темы

Одномерные массивы: Подсчитать сумму индексов элементов, равных 0

Решение