У меня еще задачи! Ну я такой чел. простите... Спокойной ночи кто спит! А кто хочет решите мне эти задачи, пожалуйста)))))))))))) Только прономеруйте какой решите! Решите какой хотите! Спасибо. Но мне нужны все

спасибо вам ОГРОМНОЕ

Вторая не подходит под решение через массив

точно.

1.var sum,n,i:integer;mass:array[1..10000] of integer;beginwrite('N=');read(n);for i:=1 to n dobeginmass[i]:=random(50);write('mass[',i,']=',mass[i]);writeln;sum:=sum+mass[i];end;writeln('Сумма равна ',sum);end.2.var n,i:integer;beginwrite('N=');read(n);i:=1;while i<=n do beginif i mod 2<>0 thenwrite(i,',');i:=i+1;end;end.3. var amax,i,n:integer;mass:array[1..10000] of integer;beginwriteln('N=');read(n);for i:=1 to n do beginmass[i]:=random(100);write('mass[',i,']=',mass[i]);writeln;end;amax:=mass[1];for i:=2 to n doif mass[i]>amax then amax:=mass[i];writeln('Максимальный элемент в массиве равен ',amax);end.