Программа вывода на экран таблицы

@prgrmist · Регистрация: 22.09.2014

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

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

@vint-81 · 11.11.2014, 12:27

Pascal

const n=15;
type mas=array[1..n] of integer;
var  a:mas;
     i,j,s,k:integer;
begin
 randomize;
 for i:=1 to n do
  begin
   a[i]:=1+random(1000);
   write(a[i],' ');
   s:=0;
   while a[i]>0 do
    begin
     s:=s+a[i] mod 10;
     a[i]:=a[i] div 10;
    end;
   a[i]:=s;
  end;
 for i:=1 to n-1 do
  for j:=1 to n-i do
   if a[j]>a[j+1]
    then
     begin
      a[j]:=a[j]+a[j+1];
      a[j+1]:=a[j]-a[j+1];
      a[j]:=a[j]-a[j+1]
     end;
 writeln;
 k:=1;
 writeln('-----------------');
 writeln('|  sum  |  kol  |');
 writeln('-----------------');
 for i:=1 to n-1 do
  begin
   if a[i]=a[i+1]
    then inc(k)
    else
     begin
      writeln('|',a[i]:7,'|',k:7,'|');
      k:=1
     end
  end;
  writeln('|',a[n]:7,'|',k:7,'|');
  writeln('-----------------')
end.

@prgrmist 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 5
		1
	Программа вывода на экран таблицы 10.11.2014, 17:40. Показов 1156. Ответов 1 Метки нет (Все метки) Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечисленны сумма цифр элемента массива (Без повторений, в порядке возрастания) и сколько раз элементы с такой суммой цифр встречаются в массиве 0

	11.11.2014, 12:27

Программа вывода на экран таблицы

Решение