сервис вопросов и ответовНайти произведение максимального и минимального чисел (Pascal ABC)
5-9 класс|
|
Alias4795
27 сент. 2014 г., 17:10:42 (9 лет назад)
Мелех
27 сент. 2014 г., 18:29:07 (9 лет назад)
program maxmin;
var l,i,n,min,max:integer;
begin
read(n);
for i:=1 to n do begin
max:=0;
min:=10;
read(l);
if l<min then min:=l;
if l>max then max:=l;
end;
writeln(max*min);
end.
to?
Kalchenkodasha
27 сент. 2014 г., 20:42:59 (9 лет назад)
program fofgogjoj;
var
arr: array[1..1000] of byte;
max_num, min_num: byte;
i: byte;
n,p:integer;
begin
randomize;
Wriiteln('Введите число n');
Readln(n);
for i := 1 to n do begin
arr[i] := random(100);
Write (arr[i]:3);
end;
max_num := arr[1];
for i := 2 to n do
if arr[i] > max_num then
begin
max_num := arr[i];
end;
Writeln;
Writeln ('Max = ',max_num);
min_num := arr[1];
for i := 2 to n do
if arr[i] < min_num then
begin
min_num := arr[i];
end;
Writeln;
Writeln ('Min = ',min_num);
P:=max_num*min_num;
Writeln('Произведение равно:',p);
end.
Юльчик1212
27 сент. 2014 г., 23:06:38 (9 лет назад)
Вводятся n чисел, найти произведение максимального и минимального
Ukolova99
28 сент. 2014 г., 1:50:30 (9 лет назад)
Могу алгоритм написать, если в паскаль сам переведешь.
наськуська
28 сент. 2014 г., 3:11:49 (9 лет назад)
n chisel zakanchivaetsya vvod 0?
Fhfdgdg
28 сент. 2014 г., 6:04:26 (9 лет назад)
vse tuplya wsa budet
Ответить
Другие вопросы из категории
8. Вычислить значение логического выражения, если
X = Ложь, У = Истина, Z = Ложь:
а) X и не (Z или У) или не Z;
б) не X или X и (У или Z);
в) (X или У и не Z) и Z.
9. Вычислить значение логического выражения, если
X - Истина, У - Ложь, Z - Ложь:
а) не X или не У или не Z;
б) (не X или не У) и (X или У);
в) X и У или X и Z или не Z.
10. Вычислить значение логического выражения, если
А - Ложь, В - Ложь, С - Истина:
а) (не А или не В) и не С;
б) (не А или не В) и (А или В)\
в) А и В или А и С или не С.
Читайте также
Кто-нибудь кто хорошо разбирается в Pascal ABC,помогите,пожалуйста! 1.Нарисовать круг, разделённый на N одинаковых частей, окрашенных в разный цвет.
Количество частей N вводится с клавиатуры. 2.Нарисовать пирамиду из разноцветных прямоугольников.Количество прямоугольников вводится с клавиатуры. 3.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует) Вычислить произведение максимального и минимального числа. 4.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых двух чисел нуля нет. Найти сумму двух наибольших чисел. 5.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых трех чисел нуля нет. Найти среднее арифметическое трёх наименьших чисел.
Информатика 9 класс.
Турбо Паскаль.Дано три целых числа.Найти произведение максимального на минимальное.
Нужно составить формулу.
ПОМОГИТЕ ПОЖАЛУЙСТА :(
1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Ввести с клавиатуры массив из N вещественных чисел. Найти разность максимального и минимального элементов.
(Составить программу Pascal)
Вы находитесь на странице вопроса "Найти произведение максимального и минимального чисел (Pascal ABC)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.