Посчитать количество элементов массива, значение которых равны нулю

@KChernenko · Регистрация: 13.01.2012

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

1. Посчитать количество элементов массива, значение которых равны нулю, остальные элементы массива заменить единицами.

2. Пузырьковый метод с индикатором перестановки с запоминанием позиции последней перестановки для упорядочения элементов по возрастанию.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@blad · 13.01.2012, 09:23

Посчитать количество элементов массива, значение которых равны нулю, остальные элементы массива заменить единицами.

Pascal

uses crt;
var mas: array [1..15] of integer;
     i,k: byte;
begin
  clrscr;
  randomize;
  for i:=1 to 15 do
    begin
       mas[i]:=random(5);
       write (mas[i],' ');
    end;
  writlen ('New massiv');
  for i:=1 to 15 do
  begin
    if mas[i]=0 then k:=k+1 else mas[i]:=1;
    write (mas[i],' ');
  end;
  readln;
end.

	13.01.2012, 09:23

Посчитать количество элементов массива, значение которых равны нулю

Решение