Версия для печати темы

Автор: машуля 19.01.2008 22:41

1.Дана целочисленная прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента. ( Оформить в виде функции).
2.В одномерном массиве, состоящим из N вещественных элементов,(n<=50) вычислить количество и сумму модулей элементов массива, расположенных после последнего нулевого элемента.

Автор: Client 19.01.2008 23:31

Вот, ко второй задаче

uses crt;
var
   a:array[1..50] of real;
   i,kol,n:byte;
   s:real;
begin
     clrscr;
     writeln(' Vvedite N: ');
     readln(n);
     for i:=1 to n do begin
         read(a[i]);
         s:=s+abs(a[i]);
         inc(kol);
         if a[i]=0 then begin
            s:=0;
            kol:=0
         end;
     end;
     writeln;
     for i:=1 to n do write(a[i]:5 :2);
     writeln;
     write(' Kol= ',kol,' S= ',s:0 :2);
     readkey
end.

В первой что именно не понятно?

Автор: nazrax 20.01.2008 0:02

спс !