Вычислить количество элементов массива, равных нулю - Pascal ABC

Формулировка задачи:

одномерном массиве, с n действительных элементов, вычислить: количество элементов равных нулю, вывести ненулевые элементы на экран.

Код к задаче: «Вычислить количество элементов массива, равных нулю - Pascal ABC»

textual
const
  n = 10;
 
var
  k, i: integer;
  x: array [1..n] of real;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    x[i] := -n div 2 + random * n;
    write(x[i]:8:2);
  end;
  writeln;
  k := 0;
  writeln('Ненулевые элементы массива:');  
  for i := 1 to n do
  begin
    if x[i] = 0 then 
      inc(k)
    else
      write(x[i]:8:2);
  end;
  writeln;  
  writeln('Количество элементов равных нулю: ', k)
  
end.

15   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ