Найти сумму чисел , расположенных между минимальным и максимальным элементами включительно - Turbo Pascal

  1. Дан произвольный массив из 40 элементов. Найти сумму чисел , расположенных между минимальным и максимальным элементами включительно. Написал программу. Кликните здесь для просмотра всего текста


textual

Код:

Program Lab8;
var
s,t,a,b,c,z:real;
Function F(x,y:real):real;
Begin
F:=((sqr(x)+2*y+3)/6);
end;
Function P(i:integer):real;
begin
If i=1 then P:=sin(0.5) else P:=z*sqr(p(i-1))+p(i-1)+2;
end;
Function H(i:integer):real;
begin
If i=1 then H:=cos(0.5) else H:=3*h(i-1)/(2*z);
end;
Begin
WriteLn ('BBeguTe s,t 4epe3 ENTER');
ReadLn (s,t);
a:=F(s,t);
b:=F(sqrt(s),sqrt(t));
WriteLn ('a= ',a:5:2);
WriteLn ('b= ',b:5:2);
ReadLn;
WriteLn ('BBeguTe z');
ReadLn (z);
c:=sqrt(abs(p(4)-h(6)));
WriteLn ('c= ',c:5:2);
ReadLn;
end.


Похожие ответы
  1. дана функция, которая находит максимальный элемент матрицы, в основном теле ползователь рандомом задает 2 матрицы, как сделать так, чтобы программа находила разность между максимальными этих 2 матриц и выводила на экран

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. В одномерном массиве что состоит из N действительных элементов вычислить: 1.Максимальний элемент массива. 2.Суму элементов расположенных до последнего положительного элемента. Удалить из массива все элементы модуль которых находится в интервале [a, b] .Елементы которые освободятся в конце массива заполнить нулями.

  1. Написать программу по заданным условиям: Даны действительные числа x,y. Найти произведение всех целых чисел, расположенных между х и у, а также количество этих чисел. Если, можно, то с блок схемой.

  1. Составить текст программы на языке Паскаль, содержащий: 1) процедуру, выполняющую действия над массивами сумму элементов массива, расположенных после минимального элемента. Диапазон – [-10;30].; 2) процедуру, выполняющую ввод элементов массива с клавиатуры; 3) процедуру, выполняющую заполнение массива случайными величинами в заданном диапазоне; 4) процедуру, выполняющую вывод элементов массива на экран в виде таблицы.

  1. Дан целочисленный массив (1..3,1..5) найти количество положительных элементов этого массива,расположенных ниже главной диагонали

  1. Дан массив целых чисел, представленных в 8-ричной системе счисления. Осуществить перевод в 10-ричную и обратно. Вычислить индексы наибольшего и наименьшего чисел. Найти произведение чисел, расположенных в массиве правее наименьшего. Заранее спасибо за помощь.

  1. Дан двумерный целочисленный массив из n строк и m столбцов. Написать программу, которая среди элементов расположенных выше побочной диагонали находит максимальный элемент и его индексы.

  1. нужно сделать такую программу чтобы я писал слово например "куркума" и чтобы выводило "к*у*р*к*у*м*а" И если я напишу другое слово чтобы делалось так же. Писать на основе этой программы:

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