1) const n=10; var a:array[1..n] of integer; i,s:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(51)-25; write(a[i]:4); end; writeln; s:=0; for i:=1 to n do if a[i]>0 then s:=s+a[i]; s:=2*s; writeln('s = ',s); end.
2) const n=33; var a:array[1..n] of integer; i:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(96); write(a[i]:3); end; writeln; for i:=1 to n do if a[i] mod 13 = 0 then write(a[i]:4); end.
Сколько бы ни размышляли философы над перспективами информационного общества, о сущности информационно-компьютерной революции, философия остается верной сама себе и выполняет лишь ей присущую функцию, только когда она занимается человеком. То, что мы привыкли называть Человеком, совпадает с понятием общество. Но помимо этого абстрактного родового существа, обитающего в философских трактатах, статистически усредненного и обобщенного, наш мир населен обычными, нормальными, живыми людьми. Эти люди живут и умирают, борются, побеждают, терпят поражения, занимаются бизнесом, работают на заводах и в конторах, ленятся, бездельничают, рожают детей, страдают от болезней и старости, обладают властью или сопротивляются ей, занимаются наукой и философией или бедствуют в полном невежестве в глухих трущобах. Я думаю написала неправильно все таки сам проверь)
Северный мост