Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 25.03.2016
Сообщений: 2
1

Даны два одномерных массива целых чисел A [1.6] и B [1.8]. Вычислить значение Z = min A[i] + min B[j]

19.06.2017, 13:49. Показов 1400. Ответов 2
Метки нет (Все метки)

Массивы на ЯП Pascal ABC
помогите решить пожалуйста!

Используя функцию

Даны два одномерных массива целых чисел A [1..6] и B [1..8]. Вычислить значение Z = min A[i] + min B[j].
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2017, 13:49
Ответы с готовыми решениями:

Даны действительные числа x,y,z. Вычислить (min(x,y)+min(y,z)+min(x,z))/min(x,y,z)
Даны действительные числа x,y,z. Вычислить (min(x,y)+min(y,z)+min(x,z))/min(x,y,z). Подскажите,...

Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a), Y2=min(Y12+Y
Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a)),...

Определить значение z, z=min(a,3b)*min(2a-b,2b), где min(x,y) есть минимальное из чисел x,y
Определить значение z, z=min(a,3b)*min(2a-b,2b), где min(x,y) есть минимальное из чисел x,y

Паскаль. Л7. з1. Даны два одномерных массива целых чисел

__________________
2
Эксперт Pascal/Delphi
6619 / 4451 / 4740
Регистрация: 05.06.2014
Сообщений: 21,871
19.06.2017, 13:52 2
Цитата Сообщение от Shoking Посмотреть сообщение
ЯП Pascal ABC
Ну и зачем вы тогда в разделе ТП сообщение выкладываете?
Переезжаем.
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,262
20.06.2017, 22:44 3
Лучший ответ Сообщение было отмечено Shoking как решение

Решение

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
procedure read_arr(var x: array of integer; s: string);
var i: integer;
begin
  writeln('Введите элементы массива ', s, ':');
  for i := 0 to high(x) do
    begin
      write(s, '[', i + 1, '] = ');
      readln(x[i])
    end
end;
 
function min(const x: array of integer): integer;
var i, m: integer;
begin
  m := x[0];
  for i := 1 to high(x) do if m > x[i] then m := x[i];
  min := m
end;
 
var a: array[1..6] of integer;
    b: array[1..8] of integer;
begin
  read_arr(a, 'A');
  read_arr(b, 'B');
  writeln('Z = ', min(a) + min(b))
  ;readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2017, 22:44

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

Даны значения c, d, m, k. Напишите функцию min для вычисления значения следующего выражения: (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)).
Даны значения c, d, m, k. Напишите функцию min для вычисления значения следующего выражения: ...

Даны вещественные числа x, y, z. Найти min(max(x+1,y-1), min(y,z)
Даны вещественные числа x, y, z. Найти min(max(x+1,y-1), min(y,z)). работа в Pascal Помогите...

В массиве целых чисел заменить элементы массива=5 на min значения массива
В массиве целых чисел заменить элементы массива=5 на min значения массива. Вывести количество...

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных с
n= 22, m= 16, L= -50, P=30; Массив С состоит из элементов исходных массивов, меньших первого...


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

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

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