Вопрос по информатике:
для заданного одномерного массива с компонентами вещественного типа написать программу решения задачи:
вычислить разность между наибольшим и наименьшим элементом.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.01.2017 23:28
- Информатика
- remove_red_eye 6119
- thumb_up 74
Ответы и объяснения 2
program fnued;
uses crt;
var a:=array [1..1000] of integer;
i,n,max,min,r:real;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
for i:=1 to n do
if a[i] r:=max-min; writeln(r); readln; end.
- 15.01.2017 05:46
- thumb_up 37
program massiv;
var
a:array[1..10] of integer;
i,b,c : integer;
begin
writeln ('posledovatelno vedity elementi massiva (10 chisel)');
for i:=1 to 10 do
readln(a[i]);
b:=a[1];
for i:=1 to 10 do
begin
if a[i]>b then
b:=a[i];
end;
c:=a[1];
for i:=1 to 10 do
begin
if a[i]
end;
writeln('raznost mesdu naibolshim i naimenshim elementom massiva =',b-c);
readln;
end.
p.s если нужны пояснения то в личку
- 16.01.2017 18:20
- thumb_up 63
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.