Системы программирования предназначены для создания (написания) программ, с ними работают разные программисты, для создания своих собственных программ . системы программирования предназначены для разработки различных типов программного обеспечения.в дословном понимании, система программирования - программа, предназначенная для разработки программ на каком-либо конкретном языке программирования. например, c++.в общем-то вывод : системы программирования предназначены для разработки различного программного обеспечения. такого как игры, ос, различные приложения и т.д. 3 вопрос я не совсем понял, возможно я устал ,а может быть он просто не корректен,так что с ним сам как-нибудь если там имеется ввиду ,кто может работать с системами программирования ,то тогда ,конечно же, программисты - ответ)
В обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000 1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end. 2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.
1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end.
2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.