|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.11.2008, 11:46 | #1 |
Пользователь
Регистрация: 30.09.2008
Сообщений: 10
|
Z=Xmax-Ymin/2,Xmax
Вычислить Z=Xmax-Ymin/2,Xmax - максимальный элемент массива X(50); Ymin - минимальный элемент массива Y(40). Xmax и Ymin вычислять в однородной подпрограмме при помощи процедуры.
|
12.11.2008, 12:38 | #2 |
Пользователь
Регистрация: 08.11.2008
Сообщений: 24
|
Если все правильно понял, то как-то так
Var X: array[1..50] of Integer; Y: array[1..40] of Integer; XMax, YMin: Real; Z: Real; i: Integer; Procedure Sort(N: Integer); Begin YMin:=Random(100); for i:=1 to N do begin if X[i] > XMax then XMax:=X[i]; if N = 40 then if Y[i] < YMin then YMin:=Y[i]; end; end; Begin Randomize; (*Запуск встроенного генератора случайных чисел*) for i:=1 to 50 do X[i]:=Random(100); (*Формируем массив X случайным образом*) for i:=1 to 40 do Y[i]:=Random(100); Sort(50); Sort(40); Z:=XMax - YMin / 2; End.
Это было бы смешно, если бы не было так серьезно. "451 по Фаренгейту".
|