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

Формулировка задачи:

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

Код к задаче: «Найти сумму модулей отрицательных элементов массива - Turbo Pascal»

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.

10   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ