Напишите программу, которая заполняет массив случайными целыми числами

@Иван1111 · Регистрация: 24.04.2015

Напишите программу, которая заполняет массив случайными целыми числами, вводит с клавиатуры целое число N и копирует в новый массив все числа из исходного массива, для которых сумма значений всех цифр равна N.

@Puporev · 10.04.2016, 14:24

Pascal

const nmax=100;
function summa(a:integer):integer;
var b,s:integer;
begin
b:=abs(a);
s:=0;
while b>0 do
 begin
  s:=s+b mod 10;
  b:=b div 10;
 end;
result:=s;
end;
var a:array[1..nmax] of integer;
    m,n,i,k:integer;
begin
randomize;
repeat
write('Введите размер массива от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
writeln('Массив');
for i:=1 to m do
 begin
  a[i]:=-99+random(1099);
  write(a[i]:4);
 end;
writeln;
repeat
write('Введите искомую сумму цифр n>0 n=');
readln(n);
until n>0;
k:=0;
for i:=1 to m do
if summa(a[i])=n then
 begin
  write(a[i]:4);
  k:=1;
 end;
if k=0 then write('Нет чисел с такой суммой цифр');
end.

@Иван1111 · 11.04.2016, 19:17 **[ТС]**

а можно ли ее сделать менее длинной?
Буду заранее благодарен.

@Puporev · 11.04.2016, 19:19

Делайте, если умеете, я пас.

@Иван1111 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 12
		1
	Напишите программу, которая заполняет массив случайными целыми числами 10.04.2016, 12:23. Показов 12545. Ответов 3 Метки нет (Все метки) Напишите программу, которая заполняет массив случайными целыми числами, вводит с клавиатуры целое число N и копирует в новый массив все числа из исходного массива, для которых сумма значений всех цифр равна N. 0

@Иван1111 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 12
	11.04.2016, 19:17 [ТС]	3
	а можно ли ее сделать менее длинной? Буду заранее благодарен. 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	11.04.2016, 19:19	4
	Делайте, если умеете, я пас. 0

Опции темы

Напишите программу, которая заполняет массив случайными целыми числами

Решение