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

@maks_rnd · Регистрация: 01.10.2013

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

Дано 2 массива а (n) b(n) . Найти количество нулевых элементов в двух массивах(используя один цикл).

@ildwine · 09.12.2013, 11:07

Pascal

const
  n = 10;
var
  a, b : array [1..n] of integer;
  i, ka, kb : integer;
begin
  ka := 0;
  kb := 0;
  randomize;
  writeln('массив A | массив B');
  writeln('-------------------');
  for i := 1 to n do
  begin
    a[i] := random(10) - 5;
    b[i] := random(10) - 5;
    writeln(a[i]:5, '    |', b[i]:5);
    if a[i] = 0 then inc(ka);
    if b[i] = 0 then inc(kb)
  end;
  writeln('-------------------');
  writeln('количество нулевых элементов в массиве A: ', ka);
  writeln('количество нулевых элементов в массиве B: ', kb);
  writeln('всего: ', kb + ka)
end.

@maks_rnd · 10.12.2013, 00:32 **[ТС]**

спасибо, но если бы раньше))) я посидел часик другой подумал и сам сделал))

@maks_rnd 1 / 1 / 2 Регистрация: 01.10.2013 Сообщений: 57
		1
	Найти количество нулевых элементов массивов A и B 08.12.2013, 19:43. Показов 1329. Ответов 2 Метки нет (Все метки) Дано 2 массива а (n) b(n) . Найти количество нулевых элементов в двух массивах(используя один цикл). 0

@maks_rnd 1 / 1 / 2 Регистрация: 01.10.2013 Сообщений: 57
	10.12.2013, 00:32 [ТС]	3
	спасибо, но если бы раньше))) я посидел часик другой подумал и сам сделал)) 1

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

Решение