Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Создайте модуль для вычисления длины окружности и площади круга https://www.cyberforum.ru/ pascalabc/ thread1707731.html А) Создайте модуль, который содержит подпрограммы для вычисления:  Длины окружности и площади круга, ограниченного этой окружностью, с заданным радиусом окружности;  Радиуса круга, если известна его длина;  Радиуса круга, если известна его площадь. Б) Составьте программу с использованием подпрограмм модуля, созданного в пункте A). Добавлено через 12 часов 32 минуты Help ...	Шифрование с помощью шифра с использованием семибуквенного кодового слова Pascal ABC Напишите программу, реализующую алгоритм шифрования с помощью шифра с использованием семибуквенного кодового слова.
Pascal ABC Напечатать последовательность слов в обратном порядке Дана последовательность, содержащая от двух до десяти слов, в каждом из которых от одной до пяти строчных букв; между соседними словами – запятая, за последним словом – точка. Напечатать эту же последовательность слов, но в обратном порядке. https://www.cyberforum.ru/ pascalabc/ thread1707456.html	Pascal ABC Одновременное выполнение двух операторов https://www.cyberforum.ru/ pascalabc/ thread1707359.html Здравствуйте, подскажите, как сделать так чтобы два или более операторов выполнялись не последовательно, а параллельно. Т.Е не оператор А, а за ним оператор Б. А и оператор А и оператор Б.
Pascal ABC Определить лежат ли точки на одной окружности с центром в точке О Заданы координаты двух точек. Определить лежат ли они на одной окружности с центром в точке О(х0, у0).	Pascal ABC Составить блок схему к готовому коду https://www.cyberforum.ru/ pascalabc/ thread1707241.html Program tochka; var i,k:integer; x,y:real; const n=1; begin writeln('Введите координаты точки'); k:=0; for i:=1 to n do begin writeln('Точка ',i);
Pascal ABC Посчитать количество элементов массива, которые больше своих соседей https://www.cyberforum.ru/ pascalabc/ thread1707203.html нужна помощь	Поймать в корзину шары Pascal ABC Помогите пожалуйста написать программу : нужно поймать в корзину шары, появляющиеся в верхней точке игрового поля и летящие под некоторым углом к вертикали . При ужаре шара об стенку изменяется его направление движения . В игре три уровня сложности , отличающиеся скоростью шаров , количеством . Корзина перемешается горизонтально в нижней части игрового поля. Так же нужно сделать меню , из...
Pascal ABC Вывести на экран среднее арифметическое чисел, записанных в файле типа real program file_4; type f = file of real; var cisla: f; c: array of real; sr: real; s: real; https://www.cyberforum.ru/ pascalabc/ thread1707140.html	Pascal ABC Вывести числа из интервала https://www.cyberforum.ru/ pascalabc/ thread1707101.html {Вывести все трехзначные числа из отрезка , сумма цифр которых является нечетным числом.} var a1,b1,c: integer; i,a,b: integer; begin writeln('Введите два трехзначных числа'); readln(a,b); for i:=a to b do begin for a1:=1 to 9 do for b1:=0 to 9 do
Вычисления значений функции Y для значения переменной x Pascal ABC program v16z2; var x,y,A,B,g,H:real; begin writeln('Программа для вычисления значений функции Y для значения переменной x -->'); writeln; writeln('Дана функция: Y = x^2*Cos(x)/Ln(x^2-1);'); writeln; write('Введите начальное значение интервала A: '); readln(A); //-2	Pascal ABC Не работает if r = 2 then begin https://www.cyberforum.ru/ pascalabc/ thread1706901.html program Morze; uses crt; const x = 5; y = 35; var r: integer;a: char;b: string;

Puporev

Почетный модератор

64288 / 47587 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

10.04.2016, 14:24

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

10.04.2016, 14:24. Показов 12803. Ответов 3

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

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.

Вернуться к обсуждению:
Напишите программу, которая заполняет массив случайными целыми числами Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.04.2016, 14:24

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.04.2016, 14:24

Помогаю со студенческими работами здесь

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

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

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

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

Наверх