Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 4
Регистрация: 20.03.2014
Сообщений: 221
1

В какой из двух последовательностей встречается самое большое, а в какой - самое маленькое число?

29.12.2015, 22:45. Просмотров 985. Ответов 2
Метки нет (Все метки)

Заданы две числовые последовательности. Формируя случайным образом их размерности и элементы,определить:
В какой последовательности встречается самое большое ,а в какой - самое маленькое число;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2015, 22:45
Ответы с готовыми решениями:

Найти самое большое и самое маленькое число в матрице
нужно найти из этой матрицы само большое и самое маленькое число пожалуйста с коментариями

Поменять самое большое и самое маленькое число местами
Дана строка чисел через запятую. Сформировать строку, в которую через пробел поменять минимальное...

Поменять местами самое большое и самое маленькое слово
Задача в том, чтобы в строке, которая приходит из мейн в эту функцию, найти и поменять местами...

Найти самое большое и самое маленькое значение функции
Найти самое большое и самое маленькое значение функции z=4x^2y-y+2x^2+3x

2
22 / 22 / 39
Регистрация: 10.05.2014
Сообщений: 52
04.01.2016, 18:12 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
47
48
49
50
51
52
var  x,y:array[1..100] of integer;
     i,nx,ny,min,max:integer;
     mi,ma:char;
begin
      Write('Razmer posledovatelnosti X = ');
       Readln(nx);
        Write('Razmer posledovatelnosti Y = ');
         Readln(ny);
          Writeln;
      max:=-100;
       min:=Maxint;
        Writeln('Posledovatelnosty X:');
         Writeln;
          Randomize;
           for i:=1 to nx do
            begin
              x[i]:=Random(100)-50;
              Write(x[i]:4);
              if x[i]<min then
               begin
                 min:=x[i];
                 mi:='X';
               end;
              if x[i]>max then
               begin
                 max:=x[i];
                 ma:='X';
               end;
            end;
            Writeln; Writeln;
             Writeln('Posledovatelnosty Y:');
              Writeln;
           for i:=1 to ny do
            begin
              y[i]:=Random(100)-50;
              Write(y[i]:4);
              if y[i]<min then
               begin
                 min:=y[i];
                 mi:='Y';
               end;
              if y[i]>max then
               begin
                 max:=y[i];
                 ma:='Y';
               end;
            end;
            Writeln; Writeln;
      Writeln('Max.element v posledovatelnosti ',ma);
      Writeln('Min.element v posledovatelnosti ',mi);
      Readln;
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5637 / 3362 / 2418
Регистрация: 22.11.2013
Сообщений: 9,472
06.01.2016, 23:50 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const XY: array [Boolean] of Char = ('X','Y');
procedure MinMax(n: Integer; var mn, mx: Integer);
var x: Integer;
begin
  mn:=MaxInt; mx:=-MaxInt-1;
  for n:=1 to n do begin
    x:=-50+Random(101); Write(' ',x);
    if mn>x then mn:=x;
    if mx<x then mx:=x;
  end; WriteLn;
end;
var xmn, xmx, ymn, ymx: Integer;
begin
  Write('X:'); MinMax(5+Random(11),xmn,xmx);
  Write('Y:'); MinMax(5+Random(11),ymn,ymx);
  WriteLn('Максимум в ',XY[xmx<ymx],', минимум в ',XY[xmn>ymn]);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2016, 23:50

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

Вывести самое большое из нечётных и самое маленькое из чётных
Дан ряд чисел, требуется вывести самое большое из нечётных и самое маленькое из чётных

Написать программу, которая выводит на экран самое большое, самое маленькое и среднее арифметическое введенных чисел
Надо написать программу, которая запрашивает 10 целых чисел и потом выводит на экран самое большое,...

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

Вывод на экран названия стран, для которых в базе записано самое большое и самое маленькое количество городов
Есть программа с данными структур (простейшая база данных) : Город : страна, название, население,...


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

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

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