Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.
При 256 символьном алфавите, каждый символ кодируется одним Байтом.
40*9*512*2=368640Байт. Делим на 1024 =360 кБайт.
Правая кнопка мыши->"Свойства"
Функция "Счет" выведет кол-во ячеек с числами из выделенного фрагмента
Program n1;
var a,i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 2=0 then sum:=sum+a;
end;
writeln(sum);
end.