1 / 1 / 0
Регистрация: 25.11.2012
Сообщений: 6
1

Найти сумму максимального и минимального элементов заданного массива из 10 действительных чисел

25.11.2012, 17:59. Показов 25261. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
найти сумму максимального и минимального элементов заданного массива из 10 действительных чисел.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2012, 17:59
Ответы с готовыми решениями:

Найти сумму максимального и минимального элементов заданного массива из 10 чисел
найти сумму максимального и минимального элементов заданного массива из 10 чисел. исходник на...

Дано линейный массив действительных чисел. Вычислить произведение минимального и максимального элементов массива
Дано линейный массив действительных чисел. Вычислить произведение минимального и максимального...

Дан массив действительных чисел. Вычислить среднее арифметическое минимального и максимального элементов данного массива
Дан массив действительных чисел. Вычислить среднее арифметическое минимального и максимального...

Даны линейный массив действительных чисел. Вычислить сумму последнего и минимального элементов массива
#include <iostream> using namespace std; int main() { setlocale(0,"Rus"); int N,S; int...

2
424 / 424 / 338
Регистрация: 25.06.2012
Сообщений: 668
25.11.2012, 19:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a : array [1..10] of real;
  i : integer;
  min, max : real;
begin
Randomize;
Writeln('Исходный массив: ');
for i := 1 to 10 do
  begin
  A[i] := random;
  Write(A[i]:0:3, ' ');
  end;
max := A[1]; min := A[1];
for i := 1 to 10 do
  begin
  if min > A[i] then min := A[i];
  if max < A[i] then max := A[i];
  end;
Writeln;  
Writeln('Ответ: ', min:0:3, ' + ', max:0:3, ' = ', min+max:0:3);  
end.
Добавлено через 1 минуту
Вручную:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a : array [1..10] of real;
  i : integer;
  min, max : real;
begin
Writeln('Исходный массив: ');
for i := 1 to 10 do
  begin
  Write('Введите A[', i, '] = ');
  Readln(A[i]);
  end;
max := A[1]; min := A[1];
for i := 1 to 10 do
  begin
  if min > A[i] then min := A[i];
  if max < A[i] then max := A[i];
  end;
Writeln;  
Writeln('Ответ: ', min:0:3, ' + ', max:0:3, ' = ', min+max:0:3);  
end.
0
1 / 1 / 0
Регистрация: 25.11.2012
Сообщений: 6
26.11.2012, 07:57  [ТС] 3
спасибо ))
0
26.11.2012, 07:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2012, 07:57
Помогаю со студенческими работами здесь

Найти произведение минимального элемента матрицы действительных чисел на сумму ее положительных элементов
Найти произведение минимального элемента матрицы действительных чисел на сумму ее положительных...

Найти сумму квадратов максимального и минимального чисел массива
Найти сумму квадратов максимального и минимального чисел массива В(14)

Найти сумму минимального и максимального элементов массива
Дана последовательность целых чисел за которой следует 0. Найти сумму мин-го и мак-го элементов в...

Найти сумму минимального и максимального элементов массива
Написал программу,компилятор ошибок не дал,но программа после ввода массива ничего дальше не...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru