Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 42
1

Найти максимальное и минимальное значение из трёх массивов

24.11.2014, 23:07. Просмотров 523. Ответов 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 maxmin;
uses crt;
const n=5; m=7; o=10;
var
a:array [1..n] of integer;
b:array [1..m] of integer;
c:array [1..o] of integer;
i,j,h,mini,maxi,min,max,temp: integer;
str,str1,str2,str3:string;
begin
clrscr;
randomize;
write('Mas a: ');
for i:=1 to n do
begin
a[i]:=random(5);
 
write(a[i]:2);
end;
     writeln;
write('Mas b: ');
for j:=1 to n do
begin
b[j]:=random(7);
write(b[j]:2);
end;
             writeln;
             write('Mas c: ');
for h:=1 to n do
begin
c[h]:=random(10);
write(c[h]:2);
end;
 
 
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2014, 23:07
Ответы с готовыми решениями:

Найти максимальное и минимальное значение из трех цифр
Даны числа: А, В, С. Выяснить, что больше: "удвоенная разность наибольшего и наименьшего из них или...

Найти максимальное, минимальное и среднее значение из трех чисел
Даны числа: A, B, C. Что больше удвоенная разность наибольшего и наименьшего из них или удвоенное...

Найти максимальное и минимальное значение двух массивов
Как мне найти максимальное и минимальное значение двух массивов,которые заполнены случайными...

Минимальное и максимальное значение массивов
import java.util.Arrays; public class auf4 { public static void main(String args) { int array...

2
18 / 18 / 11
Регистрация: 05.01.2014
Сообщений: 119
Записей в блоге: 2
24.11.2014, 23:23 2
Если условие не ограничивает,то создайте 4-й массив(для объединение 1-го,2-го и 3-го).
Объединение массивов
А дальше уже по простому алгоритму...
0
14 / 14 / 21
Регистрация: 13.11.2014
Сообщений: 275
25.11.2014, 00:24 3
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
47
48
49
50
51
52
53
54
55
program maxmin;
 
const
  n = 5; m = 7; o = 10; u=10;
type
mas = array [1..u] of integer;
 
 
var
  a,b,c : mas;
   min1, max1, min2, max2,min3,max3: integer;
  
procedure vivod (var x: mas); 
var i: integer;
begin
  writeln('Mas : ');
  for i := 1 to 10 do
  begin
    x[i] := random(5);
    write(x[i]:2);
  end;
  end;
  procedure   maxmina (var max, min: integer ; var  x: mas);
  var i: integer;
  begin
  min:=x[1];
  max:=x[1];
    for i := 1 to u do begin
    if x[i]>x[1] then max:=x[i];
    if x[i]<x[1] then min:=x[i];
    end;
    end;
    begin
    vivod(a);
    writeln;
    vivod(b);
     writeln;
    vivod(c);
     writeln;
    maxmina (max1,min1,a);
    maxmina (max2,min2,b);
    maxmina (max3,min3,c);
    begin
   if (max1 > max2) and (max1>max3) then writeln (max1);
    if (max2 > max3) and (max2>max1) then writeln (max2);
 if (max3 > max2) and (max3>max1) then writeln (max3);
 
end;
begin
 if (min1 < min2) and (min1<min3) then writeln (min1);
 if (min2 < min3) and (min2<min1) then writeln (min2);
 if (min3 < min2) and (max3<min1) then writeln (min3);
 
  end;
 end.
здесь если хочешь добавь еще больше умов , чтобы лучше выводило
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2014, 00:24

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

Найти максимальное и минимальное из трех чисел
Даны действительные числа x, y, z. Получить: max(x,y,z)+min(x,y,z)

Найти максимальное и минимальное из трёх чисел
Найти максимальное и минимальное из трёх чисел.Если таких нет вывести сообщение.Использовать...

Найти максимальное и минимальное из трех чисел
Даны действительные числа x, y, z. Найти: a) max (x, y, z); b) min (x, y, z).

Найти максимальное и минимальное из трёх введённых чисел
Задача: Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел....


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

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

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