Var i, s: integer;
a: array[1..10] of integer;
begin
for i := 1 to 10 do begin
a[i] := random(10) - 5;
if(a[i] < 0) and (i mod 2 = 0) then s := s + a[i];
write(a[i]:3);
end;
writeln(#10, 'Сумма отрицательных элементов: ', s);
<span>end.</span>
Var n,i,s:integer;
begin
read (n);
s:=0;
for i:=1 to n do
begin
s:=s+sqr(i);
end;
writeln (s);
end.
Ответ:Program few2;
Uses crt;
Var a, b, y, min: integer;
Begin
ClrScr;
Writeln('y:= min+ 2* min+ b');
Write('Значение a: ');
Readln(a);
Write('Значение b: ');
Readln(b);
If a>b then
min:=a;
If a<b then
min:=b;
y:= min+ 2* min+ b;
Begin
If a=b then
Writeln('Невозможно найти значение...')
else
Begin
Writeln('min= ', min);
Writeln('y= ', min, '+ 2* ', min, '+ ', b);
Writeln('Y= ', y);
End;
End;
Readln;
End.
Объяснение:
Исполнителями алгоритма на мой взгляд являются В и С
<span> самый мощный процессор на 2016 год - AMD A10-7870K</span>