В массиве В(п) найти количество нулей и единиц

@Devilll · Регистрация: 03.12.2012

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

Задача на одномерный массив:
В массиве В(п) найти количество нулей и единиц.

@Zhexon · 09.12.2012, 17:20

Pascal

const max=20;
var
  a : array[1..max] of integer;
  i,k0,k1 : integer;
begin
  randomize; k0:=0; k1:=0; writeln('ishodnyj:');
  for i:=1 to max do begin
    a[i]:=random(8); write(a[i]:4);
    if a[i]=0 then inc(k0);
    if a[i]=1 then inc(k1);
  end;
  writeln('k0= ',k0);
  writeln('k1= ',k1);
  readln;
End.

@Devilll 0 / 0 / 0 Регистрация: 03.12.2012 Сообщений: 15
		1
	В массиве В(п) найти количество нулей и единиц 09.12.2012, 15:04. Показов 4152. Ответов 1 Метки нет (Все метки) Задача на одномерный массив: В массиве В(п) найти количество нулей и единиц. 0

	09.12.2012, 17:20

В массиве В(п) найти количество нулей и единиц

Решение