Нид хелп с паскалем, . не тяну эту хрень вообще ни разу. в общем, нужно сделать программы по данному алгоритму: y = сигма, наверху n=10, внизу i=3, /i/

отметь как лучший ответ!

uses crt; var k,n,i,p,sum : integer; function f(n: integer): integer; beginf: =(abs(n)); end; beginwriteln ('vvedite konechnui index') ; readln(p); sum: =0; for k: =1 to p do sum: =sum+f(k); writeln(sum); readln; end.

 

Const   n = 5;   var   arr: array [1..n] of integer;   i, max: integer; begin   for i : = 1 to n do   begin       write('a[', i, '] = ');       readln(arr[i]);   end;     max : = 1;   for i : = 1 to n do       if (max < arr[i]) and (arr[i] mod 5 = 0) then           max : = arr[i];     if max = 1 then       writeln('no')   else       writeln(max); end.

1) var      a, b: integer; begin     readln(a, b);     if (a mod 2 = 0) and (b mod 2 = 0) then         writeln('оба четные')     else         writeln('нет'); end. 2) var      a, b: integer; begin     readln(a, b);     if (a mod 2 = 0) or (b mod 2 = 0) then         writeln('является')     else         writeln('нет'); end.