Найти сумму модулей отрицательных элементов массива - Turbo Pascal

  1. Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить: a) сумму модулей отрицательных элементов массива; b) количество элементов массива, не принадлежащих интервалу (a, b); c) наименьший из элементов массива, принадлежащих отрезку [a, b]; d) количество элементов массива, равных первому элементу; Задачу можно решить одной программой.


textual

Код:

uses crt;
var
   mas:array[1..100,1..100]of real;
   i,j,n,m,a,b,kol,kol1:integer;
   sum,min,el:real;
begin
   clrscr;
   write('n=');
   read(n);
   write('m=');
   read(m);
   for i:=1 to n do
   for j:=1 to m do
    begin
       write('mas[',i,',',j,']=');
       read(mas[i,j]);
    end;
   writeln;
   for i:=1 to n do
    begin
       for j:=1 to m do
        write(mas[i,j]:2:2,'  ');
       writeln;
    end;
   writeln;
   write('a=');
   read(a);
   write('b=');
   read(b);
   sum:=0;
   kol:=0;
   for i:=1 to n do
   for j:=1 to m do
    if mas[i,j]<0 then sum:=sum+abs(mas[i,j]);
   writeln('a) summa =',sum);
   if a>b then writeln('neverniy interval!')
    else
     begin
        for i:=1 to n do
        for j:=1 to m do
         if (mas[i,j]<a)or(mas[i,j]>b) then kol:=kol+1;
        writeln('b) kol-vo elementov ne (a,b)=',kol);
        min:=1000;
        for i:=1 to n do
        for j:=1 to m do
         if (mas[i,j]>=a)and(mas[i,j]<=b)and(mas[i,j]<min) then min:=mas[i,j];
        writeln('c) min iz otrezka [a,b] =',min:2:2);
     end;
   kol1:=0;
   el:=mas[1,1];
   for i:=1 to n do
   for j:=1 to m do
    if mas[i,j]=el then kol1:=kol1+1;
   writeln('d) kol-vo ',el:2:2,' = ',kol1);
   readkey;
end.


Похожие ответы
  1. 2.Дана целочисленная матрица размерности (n ×n). Найти номер столбца, в котором нет отрицательных элементов.

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. Найти сумму отрицательных элементов массива. Помогите, пожалуйста !!!

  1. Составить программу на Паскале. Среди нечетных столбцов заданной целочисленной матрицы 5*4 найти столбец с максимальной суммой модулей элементов.

  1. Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.

  1. составить функцию вычисления количества отрицательных элементов в одномерном массиве

  1. Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найтисумму отрицательных элементов.

  1. Дана целочисленная квадратная матрица. Определить: 1. Сумму элементов в тех столбцах, которые не содержат отрицательных эле¬ментов (оформить в виде функции). 2. Минимум среди сумм модулей элементов диагоналей, параллельных побоч¬ной диагонали матрицы (оформить в виде процедуры). В паскаль Помогите пожалуйста

  1. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов массива; 2) сумму положительных элементов массива, расположенных до максимального элемента; 3) изменить порядок следования элементов в массиве на обратный.

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