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

  1. В одномерном массиве,состоящем из n вещественных элементов,вычислить,количество элементов массива,равных нулю;


textual

Код:

uses crt;
 
const
  nmax = 20;
 
var
  A : array [1..nmax] of real;
  i, n : integer;
  count : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество элементов (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Введите элементы: ');
  for i := 1 to n do Read(A[i]);
  count := 0;
  for i := 1 to n do if A[i] = 0 then inc(count);
  Writeln('Количество нулевых элементов: ', count);
  Readln;
end.


Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Вычислить С при любых значениях x, а, b:

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!