1) Произведение отрицательных чисел
uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива:');
readln (n);
for i:=1 to n do
a[i]:=random (15)-10;
write (a[i],' ');
writeln;
for i:=1 to n do
if a[i]<0 then
s:=s*a[i];
writeln ('s=',s);
readln
end.
2) Сумма четных чисел
uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива:');
readln (n);
for i:=1 to n do
a[i]:=random (15)-10;
write (a[i],' ');
writeln;
for i:=1 to n do
if a[i] mod 2 = 0 then
s:=s+a[i];
writeln ('s=',s);
readln
end.
3) Последнее попробуй сам решить. Удачи:)
Я думаю, что в будущем компьютеры станут безвредными для людей и окружающей среды. Их вид усовершенствуется до человеческого. Они будут расти вместе с хозяином (хозяйкой), хотя и смогут трансформироваться (от 1 см до бесконечности в длину и в толщину, а также в обычный компьютер или ноутбук). Причем, если вы идЈте поздно вечером домой, и боитесь бандитов, можно будет задать программу модифицирования, например в собаку. Или, допустим, Вы не считаете удобным ходить в школу с другом-компьютером, и тогда Вы сможете превратить его в какой-либо предмет или животное. У него будут такие же интересы, как и у их владельца, с ним можно будет свободно разговаривать, ходить куда-нибудь, и т. д. Это будет не человек и не робот, это будет компьютер.
