сервис вопросов и ответовДано 100 вещественных чисел. Вычислить разность между максимальным и минимальным из них. на ПАСКАЛЕ
10-11 класс|
|
Юличка1111
18 апр. 2014 г., 12:40:39 (10 лет назад)
Zee70
18 апр. 2014 г., 15:31:20 (10 лет назад)
var i: byte;
ma, mi: real;
a: array [1..100] of real;
begin
mi := 100;
for i := 1 to 100 do
begin
a[i] := random(100) / 0.5;
writeln('[', i, '] => ', a[i]);
end;
writeln('-----------------');
for i := 1 to 100 do
begin
if (a[i] > ma) then ma := a[i];
if (a[i] < mi) then mi := a[i];
end;
writeln(ma, ' - ', mi, ' = ', ma - mi);
end.
Вот =)
Ответить
Другие вопросы из категории
Укажите значения переменных K, L, M, N, при которых логическое выражение (K → M) \/ (L /\ K) \/ ¬N ложно.
Ответ запишите в виде строки из четырех символов: значений переменных K, L, M и N (в указанном порядке). Так, например, строка 1101 соответствует тому, что K = 1, L = 1, M = 0, N = 1.
ВЫПОЛНИТЬ В ПАСКАЛЕ! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли
в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Заранее спасибо :3
1.В произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
В соревнованиях по ориентированию участвуют 768 спортсменов. Специальное устройтсво регистрирует финиш каждого из участников, записывая его номер с исполь
зованием минимально возможного количества битов, одинакового для каждого спортсмена. Каков будет информационных объем сообщения (в байтах), записанного устройством, после того, как финишируют 200 спортсменов?
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
срочно, помогите, хотябы пару пунктов, желательно все((((((! Даны описания: type Oras = (Chisinau, Orhei, Balti, Tigina, Tiraspol);
Zi = (L, Ma, Mi, J, V, S, D);
Consum = array [Oras, Zi] of real;
var C : Consum;
r : Oras;
z : Zi;
Компонента C [r,z] переменной C представляет собой потребление электроэнергии города r в день z. Напишите программу, которая :
а)вычисляет количество электроэнергии, поторебляемой каждым городом за неделю;
б)вычисляет количество электроэнергии, потребляемой данными городами ежедневно;
в) вычисляет город с максимальным еженедельным потреблением электроэнергии;
г) определяет город с минимальным еженедельным потреблением электроэнергии;
д) определяет день, в который было потреблено наибольшее количество электроэнергии;
е) определяет деь с наименьшим потреблением электроэнергии.
Вы находитесь на странице вопроса "Дано 100 вещественных чисел. Вычислить разность между максимальным и минимальным из них. на ПАСКАЛЕ", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.