Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Belfegor
Ghost
173 / 173 / 40
Регистрация: 16.09.2012
Сообщений: 526
1

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

30.10.2012, 19:48. Просмотров 569. Ответов 1
Метки нет (Все метки)

Дано линейный массив действительных чисел. Вычислить произведение минимального и
максимального элементов массива.
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
program Lr4_1_2;
uses crt;
var n:integer; A:array[1..50] of real;
i:integer; max,min,S:real;
begin
clrscr;
randomize;
writeln('Vvedit kilkist elementiv massivu:');
readln(n);
for i:=1 to n do
begin
write('a[', i ,']=');
readln(a[i]);
end;
S:=1;
for i:=1 to n do
begin
if a[i]<min then min:=a[i]; 
if a[i]>max then max:=a[i];
end;
begin
//write(a[i]:5);
S:=min*max;
 
end;
writeln('dobutok elementiv massivu=',S);
writeln('min=',min);
writeln('max=',max);
readln;
end.
почему оно не выводит минимальное и не считает произведение?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2012, 19:48
Ответы с готовыми решениями:

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

Вычислить произведение минимального и максимального элементов массива
Задан одномерный массив F(N). Вычислить произведение минимального и максимального элементов...

Вычислить произведение минимального и максимального элементов массива
Задан одномерный массив F(N). Вычислить произведение минимального и максимального элементов...

Дано линейный массив действительных чисел. Подсчитать, сколько в массиве встречается максимальное число
Дано линейный массив действительных чисел. Подсчитать, сколько в массиве встречается максимальное...

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

1
gaw
6634 / 1501 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
30.10.2012, 19:59 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
program Lr4_1_2;
uses crt;
var n:integer; A:array[1..50] of real;
i:integer; max,min,S:real;
begin
clrscr;
randomize;
write('Vvedit kilkist elementiv massivu:');
readln(n);
for i:=1 to n do
begin
{write('a[', i ,']=');
readln(a[i]);}
a[i]:=random(90)+10; write(a[i],'  ');
end;
 writeln;  writeln;
//S:=1;
                min:=a[1];
                max:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
begin
//write(a[i]:5);
S:=min*max;
 
end;
writeln('min=',min);writeln('max=',max);
writeln('dobutok elementiv massivu=',S);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2012, 19:59

Произведение максимального и минимального элементов массива
На физкультуре занимаются N (1&lt;=N&lt;=100) учеников, рост каждого из них A (120&lt;=A&lt;=220). Учителю...

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

Найти произведение его максимального и минимального элементов массива
в заданном массиве P(N) найти произведение его максимального и минимального элементов. заменить...


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

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

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