Массив с наибольшим количеством нулевых элементов

Тема в разделе "Pascal and Delphi", создана пользователем -, 7 май 2010.

Статус темы:
Закрыта.
  1. Гость

    Даны одномерные массивы А и В. выдать на печать массив с наибольшим количеством нулевых элементов. вычисление количества нулевых элементов в массиве произвольной длины оформить как функцию.
    исходные данные:
    А=(1.6, -2.5, 0, 0.1, 0, 0, -7.2);
    B=(0.75, 0.001, 0, -1.1, 0, 0.1, 0, 0.1, 0, 0.4, 0);
    Заранее благодарю!
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    вычисление количества нулевых элементов в массиве произвольной длины
    (масив одномерный)

    Код (Text):
    function kolvonuley(a:array of real; l:integer):integer;
    var i,k:integer;
    begin
    k:=0;
    for i:=1 to l do
    if a[i]=0 then k:=k+1;
    kolvonuley:=k;
    end;
    ЗЫ Код писал прямо тут, могут быть ошибки
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей