Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива (бе

@Чирикан · Регистрация: 27.09.2015

Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива
(без повторений, в порядке возрастания) и сколько раз они повторяются в массиве.
Массив вводится с клавиатуры, кол-во элементов от 2 до 10

@vint-81 · 22.11.2015, 19:52

Pascal

const nmax=10;s='+--------+--------+';
type mas=array[1..nmax] of integer;
var a:mas;
    n,i,j,t:integer;
begin
 repeat
  write('1<n<11, n = ');readln(n);
 until (n>1)and(n<11);
 writeln('введите элементы массива:');
 for i:=1 to n do
  begin
   write('a[',i,']=');readln(a[i]);
  end;
 writeln;
 for i:=1 to n-1 do
  for j:=1 to n-i do
   if a[j]>a[j+1] 
    then begin t:=a[j];a[j]:=a[j+1];a[j+1]:=t end;
 writeln(s);
 writeln('|элементы| кол-во |');
 writeln(s);
 i:=1;
 while i<=n do
  begin
   j:=1;
   while (i<=n-1)and(a[i]=a[i+1]) do begin inc(j);inc(i) end;
   writeln('|',a[i]:8,'|',j:8,'|');
   inc(i)
  end;
 writeln(s);readln 
end.

@Чирикан 1 / 1 / 1 Регистрация: 27.09.2015 Сообщений: 69
		1
	Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива (бе 22.11.2015, 18:32. Показов 2378. Ответов 1 Метки нет (Все метки) Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива (без повторений, в порядке возрастания) и сколько раз они повторяются в массиве. Массив вводится с клавиатуры, кол-во элементов от 2 до 10 0

Опции темы

Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива (бе

Решение