Определить сколько чисел в массиве равно единице, двойке и т. д.

@Magga018 · Регистрация: 26.03.2018

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

В массиве из 1000 целых положительных чисел, не превосходящих по значению 20.
определить, сколько чисел равно единице, сколько двойке и т.д. Числа получить
случайным образом и отобразить в Memo через пробел. Результат отобразить в ListBox в
виде "число - кол-во".

@Puporev · 02.12.2018, 18:38

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=1000;
var a:array[1..n] of byte;
    b:array[1..20] of integer;
    i:integer;
begin
randomize;
for i:=1 to 20 do
b[i]:=0;
for i:=1 to n do
 begin
  a[i]:=1+random(20);
  inc(b[a[i]]);
  Memo1.Text:=Memo1.Text+inttostr(a[i])+' ';
  if i mod 20=0 then  Memo1.Text:=Memo1.Text+#13#10;
 end;
for i:=1 to 20 do
ListBox1.Items.Add(inttostr(i)+' - '+inttostr(b[i]));
end;

@Magga018 0 / 0 / 0 Регистрация: 26.03.2018 Сообщений: 5
		1
	Определить сколько чисел в массиве равно единице, двойке и т. д. 02.12.2018, 17:54. Показов 1084. Ответов 1 Метки нет (Все метки) В массиве из 1000 целых положительных чисел, не превосходящих по значению 20. определить, сколько чисел равно единице, сколько двойке и т.д. Числа получить случайным образом и отобразить в Memo через пробел. Результат отобразить в ListBox в виде "число - кол-во". 0

Опции темы

Определить сколько чисел в массиве равно единице, двойке и т. д.

Решение