Найти отношение количества нулевых элементов массива B к количеству нулевых элементов массива C

@kiva962 · Регистрация: 19.01.2015

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

Найти долю K=L/M, где L - количество нулевых элементов массива B(8), а M - количество нулевых элементов массива C(8).

@JokeR.BY · 22.01.2015, 19:46

Pascal

const
    n = 8;
 
type
    TMass = Array[1..n] Of Integer;
 
function Counting(const a : TMass) : Byte;
var
    i, Result : Byte;
begin
    Result := 0;
    for i := 1 to n do
        if (a[i] = 0)
        then
            Inc(Result);
    Counting := Result;
end;
 
procedure InitMass(var a : TMass; const c : Char);
var
    i : Byte;
begin
    for i := 1 to n do
    begin
        Write(c, '[', i, ']=');
        ReadLn(a[i]);
    end;
    WriteLn;
end;
 
var
    b, c : TMass;
    l, m : Byte;
begin
    InitMass(b, 'B'); InitMass(c, 'C');
    l := Counting(b); m := Counting(c);
    if (m = 0)
    then
        WriteLn('inf')
    else
        WriteLn('K=', (l / m):0:3);
end.

@kiva962 1 / 1 / 0 Регистрация: 19.01.2015 Сообщений: 30
		1
	Найти отношение количества нулевых элементов массива B к количеству нулевых элементов массива C 22.01.2015, 17:55. Показов 1326. Ответов 1 Метки нет (Все метки) Найти долю K=L/M, где L - количество нулевых элементов массива B(8), а M - количество нулевых элементов массива C(8). 0

	22.01.2015, 19:46

Опции темы

Найти отношение количества нулевых элементов массива B к количеству нулевых элементов массива C

Решение