Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Дядька Афанасий
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 2
1

Найти минимальные элементы массивов, используя процедуру или функцию

28.05.2015, 02:04. Просмотров 836. Ответов 1
Метки нет (Все метки)

Ввести с клавиатуры два массива X1(L) и X2(K); L,K<=100. Вычислить Z=(Xm1+Xm2)/2, где Xm1, Xm2 - минимальные элементы массивов X1 и X2.
Нужно сделать программу с использованием процедур или функций.
Заранее благодарен за любую помощь.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2015, 02:04
Ответы с готовыми решениями:

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

Не получается составить программу используя процедуру или функцию.
Очень нужна помощь старших в решении задачи. Вот изображение вопроса:

Вычислить сумму i+k используя рекурсивную функцию или процедуру на языке Паскаль
y=\sum_{i=1}^{n}i+k Вот эту задачу надо решить используя рекурсивную...

Используя стек, написать процедуру или функцию, которая определяет количество вхождений буквы Е в файл
Используя стек, написать процедуру или функцию, которая определяет количество...

Задан файл F, компонентами которого являются численные массивы X [15]. Найти минимальные элементы каждого из массивов и вывести в выходной файл.
добрый день. нужен текст программы к задаче в Pascal. Задан файл F,...

1
kot96
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 156
28.05.2015, 13:21 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
38
39
40
41
42
43
44
45
46
program ex;
uses crt;
const N1= 100;
type vector=array[1..N1] of integer;
var a,b:vector;
    n,m:integer;    
 
procedure form(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('введите очередной элемент: ');
readln(a[i]);
end;
end;
 
procedure print(a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
write(a[i],' ');
writeln();
end;
 
function min(a:vector;n:integer):integer;
var i,minimum:integer;
begin
minimum:=a[1];
for i:=1 to n do 
if (a[i]<minimum) then minimum:=a[i];
min:=minimum;
end;
 
begin
write('количество элементов в массиве A: ');
readln(n);form(a,n);
write('количество элементов в массиве B: ');
readln(m);form(b,m);
writeln();
write('массив A: ');print(a,n);
write('массив B: ');print(b,m);
writeln('минимальный элемент в массиве A = ',min(a,n));
writeln('минимальный элемент в массиве B = ',min(b,m));
writeln('сумма минимальных элементов в массиве = ',min(a,n)+min(b,m));
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2015, 13:21

Составить процедуру (или функцию), которая меняет местами первый и i- й элементы массива
Массив заполнен случайными целыми числами из диапазона . Составить процедуру...

Найти ошибку в программе. Написать процедуру или функцию, которая вычисляет значение выражения f(x).
1. Найти область допустимых значений аргумента x. 2. Написать процедуру или...

Определить минимальные элементы AQ1,AQ2,AQ3 заданных массивов Q1(6),Q2(18),Q3(14) и наименьший среди них
определить минимальные элементы AQ1,AQ2,AQ3 заданных массивов...


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

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

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