Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/48: Рейтинг темы: голосов - 48, средняя оценка - 4.58
0 / 0 / 0
Регистрация: 24.04.2015
Сообщений: 12
1

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

10.04.2016, 12:23. Показов 9456. Ответов 3
Метки нет (Все метки)

Напишите программу, которая заполняет массив случайными целыми числами, вводит с клавиатуры целое число N и копирует в новый массив все числа из исходного массива, для которых сумма значений всех цифр равна N.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2016, 12:23
Ответы с готовыми решениями:

Программа, которая заполняет массив a[1.10] случайными целыми числами
Cоставьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 10 и...

Написать программу, которая заполняет элементы матрицы случайными числами a[n][n] и осуществляет вывод данных
Написать программу, которая заполняет элементы матрицы случайными числами a и осуществляет вывод...

Составьте программу,которая заполняет массив a[1.10] случайными целым
Составьте программу,которая заполняет массив a случайными целыми числами в диапазоне от 1 до 10, ...

Напишите программу, которая заполняет массив квадратами натуральных чисел от 1 до N
Входные данные Входная строка содержит размер массива N . Гарантируется, что 0 < N ≤ 10000 .

3
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
10.04.2016, 14:24 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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.
1
0 / 0 / 0
Регистрация: 24.04.2015
Сообщений: 12
11.04.2016, 19:17  [ТС] 3
а можно ли ее сделать менее длинной?
Буду заранее благодарен.
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
11.04.2016, 19:19 4
Делайте, если умеете, я пас.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2016, 19:19

Заполнить массив из 10 элементов целыми случайными числами от -5 до 5,
У меня тут вот такая задачка, помогите решить, пожалуйста) Заполнить массив из 10 элементов целыми...

Заполнить массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 .
Составьте программу, которая заполняет массив а случайными целыми числами в диапазоне от 1 до 10 и...

Заполнить двухмерный массив размера N*M случайными целыми числами
Помогите решить задачу: Заполнить двухмерный массив размера N*M случайными целыми числами,...

Программа заполняет двумерный массив (6х6) случайными числами на отрезке [-8,17],выводит его в виде таблицы
Дана такая задача: Программа заполняет двумерный массив (6х6) случайными числами на отрезке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru