===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
F=320*60*65*16 = 19968000 (бит)=19968000:8 (байт) =2496000(байт)=
=249000:1024 (Кбайт) =2437,5 (Кбайт)=
=2437,5:1024(Мбайт) ≈2,38 (Мбайт)
ответ: 1) 2 Мбайта
{Pascal ABC.NET}
var a:array[1..18] of integer;
s1,s2,s3:string;
i,max1,max2,max3:integer;
begin
max1:=0;
max2:=0;
max3:=0;
s1:='Обязательная:';
s2:='Короткая:';
s3:='Произвольная:';
for i:=1 to 18 do
readln(a[i]);
for i:=1 to 18 do
begin
if (i<=6) and (a[i]>max1) then max1:=a[i];
if (i>6) and (i<=12) and (a[i]>max2) then max2:=a[i];
if (i>12) and (a[i]>max3) then max3:=a[i];
end;
writeln(s1+max1);
writeln(s2+max2);
writeln(s3+max3);
end.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.