Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
BraziK
0 / 0 / 0
Регистрация: 26.11.2015
Сообщений: 7
#1

Заполнить массивы целыми случайными числами из диапазона от 0 до 50 - Turbo Pascal

10.12.2015, 12:49. Просмотров 465. Ответов 1
Метки нет (Все метки)

Массивы Х(10) и Y(10) заполнить целыми случайными числами из диапазона от 0 до 50. Сформировать массив М таким образом, что М(I)=1, если X(I)>Y(I), в противном случае М(I)=0. Вывести Х,Y,M.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 12:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заполнить массивы целыми случайными числами из диапазона от 0 до 50 (Turbo Pascal):

Массив В(20) заполнить целыми случайными числами из диапазона от -100 до 100
Заранее спасибо. Массив В(20) заполнить целыми случайными числами из диапазона...

Матрицу Y(6, 9) заполнить целыми случайными числами в диапазоне от -10 до 14
Матрицу Y(6, 9) заполнить целыми случайными числами в диапазоне от -10 до 14....

Заполнить целыми случайными числами в диапазоне (0;-100)
Массив А(15) заполнить целыми случайными числами в диапозоне (0;-100).массив...

Заполнить одномерный массив из 15 элементов случайными целыми числами
Заполнить одномерный массив из 15 элементов случайными целыми числами. Вывести...

Заполнить двумерный массив А размером MxN случайными целыми числами
Пожалуйста, кто-нибудь решите эту задачу. Буду очень благодарен. Заполнить...

Одномерный массив А заполнить случайными числами из диапазона [–2..30].
Одномерный массив А заполнить случайными числами из диапазона . Переместить...

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
10.12.2015, 16:13 #2
Лучший ответ Сообщение было отмечено BraziK как решение

Решение

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
const n=10;
type mas=array[1..n] of byte;
var x,y,m:mas;
procedure vv_mas(var a:mas;s:string;f:boolean);
var i:byte;
begin
 writeln(s);
 for i:=1 to n do
  begin
   if f then a[i]:=random(51);
   write(a[i]:3)
  end; writeln 
end;
procedure mm(var a,b,c:mas);
const yn:array[boolean] of integer=(0,1);
var i:integer;
begin
 for i:=1 to n do c[i]:=yn[a[i]>b[i]]
end; 
begin
 vv_mas(x,'X:',true);
 vv_mas(y,'Y:',true);
 mm(x,y,m);
 vv_mas(m,'M:',false)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 16:13
Привет! Вот еще темы с решениями:

Заполнить массив различными случайными целыми числами, отсортировать и вывести его
Организуйте массив, содержащий 20 различных целых чисел. После этого элементы...

Заполнить массив А (40) случайным образом целыми числами из диапазона [100, 999]
a. заполнить массив А (40) случайным образом целыми числами из диапазона ; b....

Одномерный массив А длиной N<=20 заполнить случайными числами из диапазона [–5..30].
Одномерный массив А длиной N&lt;=20 заполнить случайными числами из диапазона ....

Заполнить два массива, размером 20 и 30 элементов, соответственно, случайными целыми числами в диапазоне от -50 до 50
Заполнить два массива, размером 20 и 30 элементов, соответственно, случайными...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru