Question

Надо сделать в паскале 1)Дан одномерный массив вещественных чисел. Найти минимальный элемент массива. 2) Дана последовательность 7 чисел. Вычислите сумму элементов данной последовательности меньших нуля. Спасибо

Answer 1

Vara:array[1..100]of integer;
i,n,m:integer;
begin
m:=999;
Writeln('введите размерность массивов:'); 
Readln(n); 
For i:=1 to n do 
Readln (a[i]);
for i:=1 to n do
begin
if(a[i]<m) then
m:=a[i];
end;
writeln(m);
end.
ДЕРЖИ ПЕРВОЕ ЗАДАНИЕ!

Answer 2

1) Нахождение минимального элемента в одномерном массиве в Паскале

Для нахождения минимального элемента в одномерном массиве в Паскале, можно использовать следующий алгоритм:

1. Объявите одномерный массив вещественных чисел. 2. Инициализируйте массив значениями. 3. Установите переменную `min` равной первому элементу массива. 4. Пройдитесь по всем элементам массива с помощью цикла и сравнивайте каждый элемент с текущим минимальным значением. Если текущий элемент меньше `min`, обновите значение `min`. 5. По окончании цикла, переменная `min` будет содержать минимальное значение в массиве.

Пример кода на Паскале:

program FindMinElement;

var
  arr: array[1..5] of real; // Замените 5 на размер вашего массива
  i: integer;
  min: real;

begin
  // Инициализация массива
  arr[1] := 3.5;
  arr[2] := 2.1;
  arr[3] := 4.7;
  arr[4] := 1.8;
  arr[5] := 2.9;

// Нахождение минимального элемента
  min := arr[1]; // Первый элемент массива

for i := 2 to 5 do // Замените 5 на размер вашего массива
  begin
    if arr[i] < min then
      min := arr[i];
  end;

writeln('Минимальный элемент массива: ', min);
end.

Примечание: В приведенном примере используется массив размером 5, но вы можете изменить его размер в соответствии с вашими требованиями.

2) Вычисление суммы элементов последовательности, меньших нуля, в Паскале

Для вычисления суммы элементов последовательности, меньших нуля, в Паскале, можно использовать следующий алгоритм:

1. Объявите переменную `sum` и инициализируйте ее нулем. 2. Введите последовательность чисел. 3. Пройдитесь по каждому элементу последовательности с помощью цикла. 4. Проверьте, является ли текущий элемент меньше нуля. Если да, добавьте его к переменной `sum`. 5. По окончании цикла, переменная `sum` будет содержать сумму элементов последовательности, меньших нуля.

Пример кода на Паскале:

program SumOfNegativeElements;

var
  sequence: array[1..7] of integer; // Замените 7 на размер вашей последовательности
  i, sum: integer;

begin
  // Ввод последовательности
  sequence[1] := 2;
  sequence[2] := -3;
  sequence[3] := 5;
  sequence[4] := -1;
  sequence[5] := 0;
  sequence[6] := -4;
  sequence[7] := 7;

// Вычисление суммы элементов, меньших нуля
  sum := 0;

for i := 1 to 7 do // Замените 7 на размер вашей последовательности
  begin
    if sequence[i] < 0 then
      sum := sum + sequence[i];
  end;

writeln('Сумма элементов последовательности, меньших нуля: ', sum);
end.

Примечание: В приведенном примере используется последовательность размером 7, но вы можете изменить ее размер в соответствии с вашими требованиями.