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

Произведение наименьшего элемента вектора Х и наибольшего элемента вектора Y. - Turbo Pascal

07.10.2012, 16:50. Просмотров 410. Ответов 1
Метки нет (Все метки)

Произведение наименьшего элемента вектора Х и наибольшего элемента вектора Y.
размер векторов x и y одинаков и равен n.
Прошу, помогите!
http://www.cyberforum.ru/turbo-pascal/thread250355.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2012, 16:50
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Произведение наименьшего элемента вектора Х и наибольшего элемента вектора Y. (Turbo Pascal):

Найти произведение модулей наибольшего отрицательного и наименьшего четного элемента массива
Помогите составить коды к задачам. Очень надо 2)Нахождение наибольшего и...

Составить функцию для выборки из компонент заданного вектора наибольшего элемента
Составить функцию для выборки из компонент заданного вектора a(a1,a2,...,an)...

Составить функцию для выборки из компонент заданного вектора наибольшего элемента
Создать программ с использованием функций: Составить функцию для выборки из...

Нахождение наибольшего (наименьшего) элемента в векторе
Пожалуйста помогите до завтра надо сдать(((( 11 Даны массивы А(4) и С(6)....

Определение наименьшего и наибольшего элемента в диагонали матрицы
Составить программу нахождения наибольшего и наименьшего элементов на главной...

1
NurlashKO
87 / 87 / 80
Регистрация: 07.10.2012
Сообщений: 145
08.10.2012, 19:17 #2
Лучший ответ Сообщение было отмечено drave130 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
    n, t1, t2, i :longint;
    x, y :array[1 .. 1000] of longint;
begin
    readln(n);
    t1 := 32000;
    t2 := -32000;
    for i := 1 to n do begin
        read(x[i]);
        if (x[i] < t1) then t1 := x[i];
    end;
    for i := 1 to n do begin
        read(y[i]);
        if (y[i] > t2) then t2 := y[i];
    end;
    writeln(t1 * t2);
    
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 19:17
Привет! Вот еще темы с решениями:

Описать процедуру поиска наибольшего и наименьшего элемента массива
Описать процедуру поиска наибольшего и наименьшего элемента массива. С помощью...

Определения максимального элемента вектора x
Помогите плиз с заданием(( const n=...; type vector = array of real; ...

Отрицательные элементы умножить на квадрат наименьшего элемента, а неотрицательные - на квадрат наибольшего
В массиве необходимо все отрицательные элементы умножить на квадрат его...

Описать функцию min (x) для определения минимального элемента вектора
Всем доброго дня. Есть необходимость решить 4 задания. По поиску на этом форуме...


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

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

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