1)составить программу нахождения наибольшего общего делителя нод. составить блок-схему 2)составить программу решения примера 1+2+4+6+8..

Program pr1; var x,y, nod: integer; begin readln(x,y); repeat if x > y then x: =x mod y else y: =y mod x until x*y=0; nod: =x+y; writeln('нод=', nod); end.program pr2; var i,n,sum: integer; beginreadln(n); sum: =1; for i: =1 to n doif i mod 2 = 0 then inc(sum,i); writeln(sum); end.

Var mas: array[-1000..1000] of integer;   i, max, n: integer; begin   {ввод количества элементов массива}   readln(n);   {ввод массива и его вывод на экран}   randomize;   for i : = 1 to n do    begin     mas[i] : = 50 - random(100) - 1;     write(mas[i]: 5);     if (i mod 10 = 0) then writeln;   end;   {поиск максимума}   max : = mas[1];   for i : = 2 to n do       if (mas[i] > max) then max : = mas[i];   {нахождение номеров элементов массива}   writeln;   for i: =1 to n do if (mas[i] = max) then write(i,'   ');   end.

Var   mas: array[-1000..1000] of integer;   i, k, n: integer; begin   {ввод количества элементов массива}   readln(n);   {ввод числа к}   readln(k);   {ввод массива и его вывод на экран}   randomize;   for i : = 1 to n do    begin     mas[i] : = 50 - random(100) - 1;     write(mas[i]: 4);     if (i mod 10 = 0) then writeln;   end;   {замена элементов массива}   writeln;   for i: =1 to n do begin   if (mas[i] mod k=0) then mas[i]: =0   else   mas[i]: =1;   write (mas[i]: 4);   if (i mod 10 = 0) then writeln;   end;   end.