Дана матрица a(3, 4найти количество отрицательных элементов и сумму отрицательных элементов.

 

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

 

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

//1 begin var ch: =readchar ('введите символ: '); if ch in ['a'..'z', 'а'..'я'] then begin if upcase(ch)=ch then write ('прописная ') else write ('строчная '); if ch in ['a'..'z'] then write (' ') else write (' '); write ('буква'); end else if ch in ['0'..'9'] then write ('цифра') else write ('символ'); end. //2 begin var x: =readreal ('ведите координаты точки: '); var y: =readreal; if (x=0) and (y=0) then write ('точка лежит на начале координат') else if x=0 then writeln ('точка лежит на оси ординат') else if y=0 then writeln ('точка лежит на оси абсцисс') else if x> 0 then if y> 0 then write (1) else write (4) else if y> 0 then write (2) else write (3); end.