Artur-62838
?>

Решить в pascal вот : дана последовательность из n различных целых чисел. найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включить и оба этих числаесли вы сделаете отправьте ответ скриншотом из pascal.

Информатика

Ответы

gulyaizmailova
Const
n=10;
var
a:array[1..n]of integer;
min,max,i,s:integer;
 begin
     for i:=1 to n do
         read(a[i]);{вводим последовательность через пробел, последний элемент ENTER}
          min:=1;max:=1;
{поиск индекса мин и макс}
             for i:=2 to n do
                 begin
                     if a[i]<a[min]then
                         min:=i;
                     if a[i]>a[max]then
                         max:=i;
                 end;
{Если индекс мин меньше чем индекс макс то}
if max>min then
    for i:=min to max do
        s:=s+a[i]
else {если индекс макс меньше чем индекс мин}
    for i:=max to min do
        s:=s+a[i];
writeln(' S= ',s);
end.
Решить в pascal вот : дана последовательность из n различных целых чисел. найти сумму ее членов, рас
emmakazaryan290
//Pascal ABC.NET 3.1 сборка 1219

Const
 n=5;

Var
 max1,max2,min1,min2,i:integer;
 ar:array[1..n] of integer;
begin
 max1:=integer.MinValue;
 max2:=integer.MinValue;
 min1:=integer.MaxValue;
 min2:=integer.MaxValue;
 for i:=1 to n do
  begin
   readln(ar[i]);
   if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else
   if ar[i]>max1 then
   begin
   max2:=max1;
   max1:=ar[i];
   end;
   if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else
   if ar[i]<min1 then
   begin
   max2:=max1;
   min1:=ar[i];
   end;
  end;
 writeln('Сумма максимумов:',max1+max2);
 writeln('Cумма минимумов:',min1+min2);
end.

Пример ввода:
1
2
3
4
5
Пример вывода:
Сумма максимумов:9
Cумма минимумов:3
Svetlana395
Не знаю, что за автоматизация, но запрос на выборку выглядит так:
SELECT * FROM my_table
или же запрос на выборку с условием
SELECT * FROM my_table WHERE name="kek2255"
при этом еще можно использовать операторы AND(И)  и OR(ИЛИ)
SELECT * FROM my_table WHERE name="Иван" AND first_name="Иванов"
SELECT * FROM my_table WHERE name="Иван" OR name="Дмитрий"
и понятное дело их можно комбинировать
SELECT * FROM my_table WHERE (name="Иван" AND first_name="Иванов") OR (name="Дмитрий" AND first_name="Дмитриев")
Можно выполнять запрос из нескольких таболиц
SELECT t1.*, t2.* FROM my_table AS t1, my_table2 AS t2
WHERE t1.id = t2.id_ref


Здесь:
SELECT - Сам оператор выборки
* - это поля выборки, в данном случае все поля(*) -звездочка это значит все поля, но можно просто перечислить id, name, first_name и т.д. При выборе из 2-х и более таблиц указываются префиксы таблицы - это может быть как полное название таблицы(my_table.id) или псевдоним, которое мы указали (FROM my_table AS t1) t1 - будет псевдонимом и выбррка полей будет таким (t1.id, t1.name ...)
FROM - Обязательное ключевое слово(оператор) означает ИЗ(from) 
WHERE - Не обязательный оператор условия (ГДЕ)
Если перевести запрос на русский язык, то будет как в 1С:)
ВЫБРАТЬ * ИЗ моя_таблица ГДЕ Имя = "Иван"
Надеюсь

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить в pascal вот : дана последовательность из n различных целых чисел. найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включить и оба этих числаесли вы сделаете отправьте ответ скриншотом из pascal.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

universal21vek116
alexluu33
stertumasova29
antonkovalev89
mon84
ИринаАлександровна
sirenashop25
Abespal
grigoriev8
Ivanovna
Чечин-Павлова615
TatyanaVladimirovich
printlublino
aivanova
Ivan500