На языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного массива 3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное. 4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов

1.

var i,n,s: integer; a: array [1..100] of integer;   beginwrite('введите количество элементов массива: '); readln(n); s: =0; for i: =1 to n do begin  readln(a[i]);   s: =s+a[i]; end; writeln('сумма элементов массива = ',s); end.

 

2.

var i,n,k: integer; a: array [1..10] of real;   begink: =0; for i: =1 to 10 do begin  readln(a[i]);   if a[i]> 0 then k: =k+1; end; writeln('количество положительных элементов массива = ',k); end.

 

3.

var i,n: integer; a: array [1..100] of integer;   beginwrite('введите количество элементов массива: '); readln(n); for i: =1 to n do   readln(a[i]); if a[1]> 0 then writeln('раньше встречается положительное число')                  else writeln('раньше встречается отрицательное число')end.

 

4.

var i,n: integer; a: array [1..100] of integer;   beginwrite('введите количество элементов массива: '); readln(n); for i: =1 to n do   readln(a[i]); for i: =1 to n do if a[i]< 0 then write(i,' '); end.

Var r,v: real; begin readln(r); v: =  (4/3)*pi*sqr(r)*r; writeln(v); readln; end. var  a,  b,  c,  cab, cba, acb:   real;   begin writeln('vvedite storonu a'); readln (a); writeln('vvedite storonu b'); readln (b); writeln('vvedite storonu c'); readln (c); cab: =(sqr(c)-sqr(a)-sqr(b))/(-2*a*b); cba: =(sqr(a)-sqr(b)-sqr(c))/(-2*b*c); acb: =(sqr(b)-sqr(a)-sqr(c))/(-2*a*c); writeln('ugol cab =', cab: 3: 2 ); writeln('ugol = cba = ', cba: 3: 2 ); writeln('ugol = acb = ', acb: 3: 2 ); readln; end. //uses crt; var k:   integer; //  идёт k-ая секунда begin readln(k); writeln('часов: ',  k div 3600); while k> =3600 do k: =  k  -  3600; writeln('минут: ',  k div 60); end. var r1, r2, r3, r0: real; begin writeln('vvedite r1 =');   readln(r1); writeln('vvedite r2 =');   readln(r2); writeln('vvedite r3 =');   readln(r3); r0: =1/(1/r1+1/r2+1/r3); writeln('soprotivlenie = ', r0); readln; end.

Program pr; uses crt; var  a,b: real; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); if (a< 0) and (b< 0)          then              begin                      a: =a+2;               b: =b+2;                 writeln('a = ',a);                 writeln('b = ',b);             end else          if (a> 0) and (b< 0)                then                    writeln('a*b = ',a*b)       else                if (a< 0) and (b> 0)                          then                                writeln('b-a = ', b-a)             else  writeln('ни одно условие не выполняется'); readln; end.