Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Nurik01
1

Сформирировать целочисленный миссив А(75) ,элементами которого являются случайные числа

09.03.2011, 18:52. Просмотров 1081. Ответов 1
Метки нет (Все метки)

помогите пожалуйста решить задачу..Сформирировать целочисленный миссив А(75) ,элементами которого являются случайные числа из диапозона [-5,20] . найти среди эго элементов два, разность которых имеет наибольшее значение
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2011, 18:52
Ответы с готовыми решениями:

Сформировать матрицу X(10,10) элементами которой являются вещественные случайные числа
Даны вещественные числа a и b (a<b). Сформировать матрицу X(10,10) элементами которой являются...

Вывести на экран матрицу размером M*N, элементами которой являются целые случайные числа
вывести на экран матрицу размером M*N, элементами котрой являются целые случайные числа из...

Cформировать массив, элементами которого являются цифры числа N
Дано натуральное число N. Составьте программу формирования массива, элементами которого являются...

Сформировать массив, элементами которого являются цифры числа N
Народ помогите пожалуйста решить контрольную работу..... Она состоит из 7 вопросов...4 я...

1
8 / 8 / 10
Регистрация: 03.03.2011
Сообщений: 75
12.03.2011, 19:58 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
program Lab;
uses wincrt;
const nmax=25;
var x:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=random(26)-5;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
writeln;
mx:=x[1]-x[2];
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if (x[i]-x[j])>mx then
 begin
  mx:=x[i]-x[j];
  imx:=i;
  jmx:=j;
 end;
writeln('два элемента: ',imx,' и ',jmx,' = ',mx:5:1);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2011, 19:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать файл последовательного доступа, элементами которого являются числа a1, a1*a2, a1*a2*a3,........,a1*a2*a3*......an
Записать в файл последовательность доступа N натуральных чисел: a1, a2,a3....an (числа получить с...

Задача: Построить двоичное дерево, элементами которого являются числа.
Program bin_tree; { Задача. Построить двоичное дерево, элементами которого...

Получить другое множество, элементами которого являются четные числа
Пожалуйста помогите решить задачки! 1)Дано множество.Получить другое множество, элементами...

Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого являются числа, сумма цифр которых равна K и которые не
вот собственно задача: Даны натуральные числа К и N. Составить программу формирования массива A,...


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

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

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